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I. 



INTRODUCTION 



A. THE PROBLEM 

Since World War II the presence of two conflicting 
requirements in missile sensor design has forced unsatis- 
factory compromises to be made in either the optical system, 
airframe or both. Examples of this are the Sidewinder air 
to air (AAM) and Chapparal surface to air (SAM) missile. 

The operational requirements are simple: from a "long" 

range, fly fast enough to pursue and overtake an adversary, 
destroy or disable the adversary and perform all of the 
guidance and tracking functions without assistance from the 
firing platform. The guidance decisions in the Sidewinder 
AAM are made by tracking the thermal radiation emitted from 
enemy aircraft. The radiation enters the missile optical 
system via a hemispherical dome on the nose of the missile. 

Long range and high speed require sleek, low-drag air- 
frames and efficient, high power engines. In the visible or 
infrared, accurate measurement of the line of sight (LOS) 
from the missile to the target requires optical lenses which 
routinely come in the shape of spheres. Spheres and similar 
blunt shapes have very high drag coefficients compared to 
conical or ogive nose shapes. Thus the Sidewinder and 
Chapparal missiles contain excellent optics, yet suffer in 
range and operational capability. 
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The targets expected to be encountered in surface AAW are 
the Soviet anti-ship missiles (ASM) . These weapons have 
evolved from simple straight line weapons to those with large 
warheads, multiple seekers and flight profiles which sometimes 
require operational tracking systems to perform beyond their 
design limits. 

The fleet AAW battle doctrine of today is based on a 
"defense in depth" concept. According to this concept the 
E-2C/F-14/Phoenix combat system will be the first unit to 
engage enemy ASM, hopefully at maximum range. The next units 
able to engage the ASM at extended range, assuming the target 
is above the radar horizon, are the units employing the SM-2 
(ER) and SM-1 (ER) missiles. While within the SM-2/1 (ER) 
engagement envelope, the SM-1 (MR) missile enters the engage- 
ment at medium range. Finally, once the ASM has penetrated 
this missile cover, the defense in depth concept reduces to 
a "defend each unit, especially the carrier" concept. In 
this region the 5"/54 gun system, Basic Point Defense System, 
NATO Sea Sparrow and Phalanx system are brought to bear. 

The battle group could conceivably consist of an aircraft 
carrier, three Aegis cruisers, two SM-1 (ER) cruisers, two 
guided missile destroyers, two guided missile frigates, two 
fast frigates and three destroyers; or a total of fifteen 
units not including logistics ships. The capital assets for 
the ships, aircraft and equipment are in the tens of billions 
of dollars and perhaps 10,000 men. These assets demand 
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protection. However, with three exceptions the AAW combat 
systems presently in the fleet, or near operational status 
are not designed to engage' a low-flying ASM in a timely 
manner. The exceptions are the Aegis cruiser, NATO Sea 
Sparrow system and Phalanx system; even with these three 
systems, there exists a gap in the 1-10 nautical mile range 
in the defense in depth concept. 

A possible attack scenario is with the battle group 
steaming in an AAW formation when the Soviet commander 
launches a series of three saturation raids of ASM's against 
the battle group. The second and third raid are launched to 
arrive at the moment when the U.S. forces are totally engaged 
with the previous raid. Hence, the second and third raid 
will substantially penetrate the battle group, with perhaps 
the carrier and several of the major escorts at least mission 
disabled. The Soviet commander can now operate at will. 

Two factors are critical to the battle group commander: 
munition assets and engagement time. Compared to the number 
of threats in a saturation attack, the battle group's missile 
assets are limited in number with limited reload capability. 
The battle group commander's gun ammunition assets are large, 
compared to the available missiles. However, with the 
current gun systems the engagement time per round is extreme- 
ly long, on the order of 60 seconds. If the gun engagement 
time could be reduced by a factor of 2, then each gun barrel 
could be twice as effective. 
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Unguided, ballastic projectiles can be replaced by gun 
launched missiles (GLM) . The GLM flying at Mach 3.0 can 
intercept in 15 seconds an inbound ASM flying at Mach 1.0 at 
a range of 20,000 yards. This engagement time and range are 
superior to any close-in system presently in the fleet. 
Therefore the GLM enhances the battle group's capability to 
survive a raid which saturates the group's long range combat 
systems. The GLM is not designed to replace any existing 
systems but complement them by providing the ability to 
strike out and defeat the enemy in the region from 1 to 10 
nautical miles. In this range interval, defense capability 
presently exists; however, the magazine capacity is limited. 
The GLM will accomplish the ASMD task by marrying existing 
ramjet technology and a new generation of missile optics to 
provide a missile which is able to defeat the Soviet ASM at 
a range far greater than is realizable with today's gun 
systems . 

This thesis involved the writing of and the application 
of computer algorithms to accomplish the following: 

1) Compute and trace monochromatic light rays through 
a conical lens. 

2) Compute a refracting surface to focus monochromatic 
light rays to a point on the GLM axis. 

3) Apply an optimization computer algorithm to the lens 
design problem. 

4) Apply gradient index optics (GRIN) to the lens design. 
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B. ASSUMPTIONS AND SIGN CONVENTION 



The computer algorithms are written based on Snell's 
law without approximations. All rays are assumed to be 
transmitted without loss of energy in the medium. When 
total internal reflection occurs, the ray is assumed to 
stop at the point of reflection. The algorithms are 
written to provide a basic understanding of the optics 
involved. Flexible computer programs have been written 
with the capability of adding ray tracing ability by 
adding subroutines. 

The medium ahead of the GLM is assumed to be air. 

Flying at Mach 3.0 the GLM will produce shock waves which 
will act like a refracting surface [1]. This thesis assumes 
the air to be homogenous, isotropic, linear, time indepen- 
dent (HILT) and free of shock waves in order to investigate 
the fundamental problem of designing a conical lens. The 
lens medium and the medium after the lens are assumed to 
be composed of an HILT material unless otherwise noted. 

The sign convention used is a right-handed system with 
distances positive to the right and up as seen by the reader. 
All angles are positive for a counterclockwise rotation from 
the horizontal axis to the point in question. When used in 
derivation of geometrical relationships, the absolute values 
of angles are used in all trigonometric expressions. 

All linear dimensions are inches unless otherwise noted. 
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II . FIRST SURFACE 



A spiked nose used as a ramjet inlet optimizes the 
aerodynamic qualities yet degrades the optical qualities. 
Figure 1 [2] illustrates the inability in the past of a 
spiked nose to focus light rays while a sperical lens 
accomplishes an excellent focus. Thus, optimizing the 
aerodynamic qualities degrades the optical qualities and 
vice versa. 

Replacing the solid propellant rocket motor now used 
on most missiles with a ramjet engine further complicates 
the compromise between optical quality and aerodynamic 
efficiency. Replacing the rocket with an air-breathing 
ramjet is motivated by fuel economy and the ability to 
throttle the ramjet. The ability to throttle allows the 
missile to fly a thrust equal drag trajectory. This type 
of trajectory results in a vacuum-like trajectory with 
less sensitivity to wind and a marked increase in maximum 
range [3] . 

Ramjets operate with inlets configured for cruise 
performance at the design Mach number. The configuration 
of the inlet shown in figure 2 is based on a design Mach 
number of 3.0 [3]. The spike of the inlet is a combination 
of a cone and curved geometry to provide high pressure 
recovery during supersonic operation [3]. 
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The inlet spike geometry is a complex surface which 
further complicates the task of the lens system which is 
to form an image of the target on the GLM axis. The inlet 
is a fluid mechanical device, called a diffuser, used to 
decelerate the air flow to a subsonic Mach number. The 
diffuser converts the kinetic energy of the flow into an 
increase in pressure of the air, known as pressure recovery, 
and decelerates the flow to a subsonic Mach number. Diffusers 
are required because the combustion of fuel is more efficient 
at high pressure and low velocity. 

A desirable inlet is one which decelerates the flow at 
constant entropy, produces no shocks, creates zero drag 
exclusive of ram drag, and is insensitive to angle of attack. 
Inlets which operate off the design Mach number may have 
additive drag. Additive drag is the sum of the forces 
acting along the streamline A-B shown in figure 3 [4]. The 
pressure multiplied by the area of the streamtube A-B is a 
force which is in a direction opposite to that of flight and 
therefore is drag. Examples of other types of supersonic 
diffusers are shown in figures 4 and 5 [4]. 

The marriage of missile optics and a controllable engine 
promises a potent weapon. Preliminary feasibility studies 
have shown that ramjet engines, control systems, guidance 
laws and warhead designs can be integrated into a 5"/54 
projectile [2, 3, 5,6]. The optical system has been identified 
as a major subsystem which requires additional investigation. 
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(Reproduced from Ref. 4, p. 245) 
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Configurations Tested by Oswatitsch. 
(Reproduced from Ref. 4, p. 247) 



Specifically, the lens, which is required to focus the image 
of the target, is the stumbling block to an efficient ramjet 
design. A blunt nose cannot be used because of poor pressure 
recovery and large additive drag. Therefore, some type of 
an inlet using a spike must be used. The spike must also be 
a lens capable of forming an image on the GLM axis. The lens 
must have a large enough aperture and field of view to provide 
the GLM with sufficient data to maintain and accurately 
measure the line of sight. 

This thesis is based on an inlet design by Brown [3] 
using data from Faro [7] shown in figure 2. The inlet is a 
15° conical tip, axisymmetric , isen tropic spike for a design 
Mach number of 3.0. The spike studied in the thesis is a 
cone having approximately the same length- to -diameter ratio 
as the inlet in figure 2 [3], Hence, the first optical 
surface used for ray tracing is a cone with a 21° half-angle. 
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III. SECOND SURFACE GENERATION: DIRECT SOLUTION 



The direct solution to designing a conical lens consists 
of solving Snell's Law at a point T shown in figures 6 and 7 
along the refracted ray within the lens. Point T is located 
below the line QP in figure 6. When T is in this position 
relative to QP, the geometry is referred to as the low region. 
When T is in the position shown in figure 7, the geometry is 
referred to as the high region. When T is on the line QP , 
i.e. Pi = 3 , the low region geometry is assumed. 

The following discussion is the derivation of expressions 
for p 2 , the angle with respect to the GLM axis of the ray 
refracted at T which passes through the design focal point 
P, and oi 2 r the angle which the tangent line at T makes with 
respect to the GLM axis. The derivation will only discuss the 
low region, because the procedure for the high region is 
identical and only the results for the high region will be 
given. The magnitude of a line segment is shown by stating 
the endpoints of the line segment in uppercase letters or by 
a single lower case letter. 

Let QP=£, QT=s and OP=f; then according to the law 
of sines sina/£ = (sin (ir- [a+ | 3 | ] ) ) /f . This relation 
simplifies to 

! - f sina (1) 

sin (a+ | 3 | ) 
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(REF) 
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Figure 6. Direct Solution: Low Region Geometry for 



First 

Surface 
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Next, note that 

RT = s sin ( | p i | - | g | ) 

and 

RT = (PQ-QR) tan( | 3 | - | P 2 |) 

Now PQ-QR=£.-s cos ( | p 1 | - | 8 1 ! ) . Substituting this into 
equation (3) and solving for tan ( 3 i — | P 2 [ ) yields 

s sin C | p 1 I - | 3 i ) 



( 2 ) 

(3) 



tan ( | 3 j - | p 2 | ) = 



f sina 



- s cos ( I p 1 [ - I 3 1 ) 



(4) 



sin(a+ | 6 | ) 

Consequently the formula for | p 2 i becomes - arctan{}. 

Using equation (4), Pi, the angle with respect to the GLM 
axis of the ray refracted at Q, apply Snell's Law at T. 

Thus, referring to figure 6 

n~ 



sin9_ = — sin0 T = n_,sin0 T 

R n^ I 23 I 



(5) 



where 0 R = | NORM | — | p 2 | and 0j = J NORM | — | p 1 | • 

Substituting these expressions into equation (5) yields a 
relation involving the sine of two angles. Expanding the 
sine expressions and solving for tan NORM | yields 



tan | NORM | = 



sin | p 2 | - n 23 sm | p 1 



( 6 ) 



cos | p 2 | - n 23 cos | pi | 

and | NORM | = arctan{ }. Equation (6) must be greater than 
or equal to zero for the expression to be valid. Then 



a 2 = y - | NORM 



(7) 
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The result of the derivation for the high region yields 



tan ( | P 2 | - | 3 | ) 



s 

f sing 
sin (a+ | 3 



sin C | 3 | — | Pi |) 



s cost | 3 | - | Pi | ) 

) 



( 8 ) 



n_ sin | pi | - sin | p 2 | 

tan | NORM | = — (9) 

n 23 COS I Pi | - COS I p 2 I 

and solving for a 2 gives 

a 2 = j - |NORM| CIO) 

Therefore, a 2 is a complicated relationship involving 
incident ray position, denoted by 8/ cone half angle a, 
design focal point P, the refractive indices n^, , and n^ 

and position s along the ray within the lens. In order for 
a systematic study to be conducted, the parameters a, f, 
n^, n .2 and n^ are assigned specific values. The parameter 
8 is determined by the position of point Q on the first 
surface. The angle of Pi, is determined by the incident 
ray angle with respect to the first surface, n^, and n 2 - 
Therefore, with the values for the parameters, either fixed 
or calculated, a design chart relating a 2 with the position 
along the ray in the lens s shown in figure 8 can be 
generated. The numbered curves correspond to numbered rays 
entering the lens. The rays are numbered consecutively 
beginning with the one nearest the GLM axis. 
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Figure 8. Sample Design Chart for a Conical Lens Design. 



The actual design process involves selecting a starting 
point, Tl, on a given ray and noting the magnitude of s^ 
as shown in figure 9. With, that value of s^, enter the 
design chart in figure 8 and read the value of 0 C 2 j from 
curve number 1. Returning to figure 9 extend a line from Tl 
using a 2 until that line intercepts the next ray at T2 . 
Measure the value of S 2 and enter figure 8 to obtain the 
value of oi 2 2 from curve number 2. Return to figure 9 and 
extend a line from T2 to intercept the next ray, etc. This 
process continues until all of the rays are intercepted or 
the first surface is intercepted. Once the intercept point 
T and the angle of the tangent line a 2 is known, the ray 
can be refracted at T. Equations (4) and (7) for the low 
region and equations (8) and (.10) for the high region 
accomplish the refraction. The result of each refraction by 
design result in a refracted ray through the focal point P 
as shown in figure 10 . 

The design procedure does not produce a single surface 
which can be used to refract light through the focal point. 
The surface designed depends on which ray was chosen as the 
initial ray and the value of s along that ray where Tl 
is positioned. Thus, a small family of surfaces illustrated 
in figure 11 can easily be calculated to provide a choice of 
lens second surfaces to the optical engineer. 

The lens designer must choose from the family of second 
surfaces generated by the design procedure. In order for a 
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Figure 9. Geometric Relationship for the Calculation of 
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consistent set of decisions to be made a set of design crite- 
ria for this thesis are: 

1) that the lens must be as thin as possible. 

2) that the lens have as large an aperture as possible. 
The aperture is defined to be the difference in 
radius between the maximum and minimum radii from 
the GLM axis at which light rays enter the lens and 
are refracted through the focal point. 

3) that the focal length to diameter ratio, f/d, is 
a minimum and in no case greater than 4 . 

Using the stated design criteria, surface number 1 in 
figure 11 is the logical choice because it is the thinnest 
and has the maximum aperture of the 5 surfaces provided. 

All of the surfaces have the same f/d ratio of 2.73. 

Each member of the family of surfaces is generated by 
using straight lines. Since a real surface will not be a 
series of flat surfaces but a smooth continuous surface with 
no discontinuities, an inherent error exists in the design. 
The error can be reduced substantially by using a large 
number of rays to provide a large number of line segments . 
to approximate a continuous surface. The designer must now 
choose the number of rays to be used, repeat the design 
process and generate the design chart for the final lens 
design using, for example, 26 rays in figure 12. Using 
figure 12, the designer calculates the final lens design 
in figure 13 beginning with the starting point which is the 
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Figure 12. Example Design Chart for the Final Design of the 
Second Surface Using a Particular Surface Chosen 
in Figure 11. 
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Figure 13. Example of the Final Design of the Second Surface 
for the Surface Chosen in Figure 11. 



end of a curve number 1 in figure 12. Thus T1 is near 
the GLM axis and a 2 = 21°. 

A ray diagram shown in figure 14 illustrates the paths 
of the light rays through the lens generated using the 
design chart in figure 12. A histogram showing the distri- 
bution of light rays on the image plane reveals that the 
light rays do pass through one design focal point plus or 
minus an half -increment width. The width of an increment 
is defined as the maximum radius of the GLM divided by the 
desired number of intervals. For example, if the maximum 
radius of the GLM is 1.1 inch and 100 intervals from the 
GLM axis to a radius of 1.1 inch then the increment width 
is 0.011 inch. In order to position an interval on the 
origin, an increment is centered on the origin. The effect 
of this operation is to add a half-increment at the maximum 
value of the radius. Therefore, for the entire GLM a total 
of 2 x 100 + 1 = 201 increments are used to generate a 
histogram. The fact that all of the rays intersect the 
focal point shows the calculations are correct for this 
particular lens. 

An automated computer algorithm, CHART, has been written 
to construct a design chart and calculate a family of sur- 
faces from that design chart. CHART waits until the operator 
chooses a particular surface from the presentation and the 
number of rays desired to calculate a final surface. Next, 
CHART will compute the final surface and present it to the 
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Figure 14 . Example Ray Diagram Showing the Results of the 
Lens Design Procedure. 



operator. The operator can choose to stop or draw a ray 
diagram to show the effectiveness of the design. If the ray 
diagram is chosen a histogram of ray distribution on the 
image plane is presented to the operator. If the operator 
wants to design a lens using another surface, the entire 
procedure must be repeated. 

The following figures are a sample run of CHART to design 
a lens. Tables containing the initial parameter values and 
calculated data are located in Appendix A. The design chart 
in figure 16 was generated using the initial parameter infor- 
mation in Table A-II. The family of second surfaces in 
figures 18 and 19 were calculated using the end of each 
numbered curve in figure 16 as the starting point T1 for 
each numbered second surface in figures 17 and 18 . The 
information used to draw figures 17 and 18 is in Table A-III. 
The rays shown in figure 18 were used to generate the design 
chart and family of second surfaces figures 17 and 18. The 
maximum length of a ray in the lens is defined as QA, the 
distance from the intercept of the incident ray and the 
first surface to the GLM axis. The calculated information 
used to draw the family of second surfaces in figures 17 and 
18 is found in Table A-IV. A comparison of QA and the value 
of s used as the starting point Tl for each family, 
s max' ‘‘■ s f° und i n Ta bl e A-V. 
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Figure 15. Example of the Histogram of the Ray Distribution on the 
Image Plane in Figure 10. Compare with Figures C-3, C- 
C-13 and C-14 of Appendix C. 
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Along the Ray in the Lens 
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Figure 17. Family of Second Surfaces Generated from the 
Design Chart in Figure 16. 
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Family of Second Surfaces Generated from the Design 
Chart in Figure 16. The Rays are Included to Provide 



Surface number 1 was chosen because the surface satis- 



fied all of the. design criteria. The final design chart 
shown in figure 19 was generated using 26 rays. The number 
of rays actually entered into the computer was 25 , CHART 
then calculates the aperture of the lens using the chosen 
surface. If the lower limit of the aperture is not the GLM 
axis, CHART adds one ray to the number entered to use as 
the starting ray. This method insure a ray will be drawn 
at the maximum and minimum boundaries of the aperture. The 
calculated data used to generate the design chart in figure 
19 is listed in Table A-VI. 

The final lens design shown in figure 20 consists of a 
surface defined by 26 points rather than 10 with the initial 
design. The coordinate values for the final surface are 
found in Table A-VII . The refinement of the surface obtained 
by using 26 rays is illustrated by comparing the end points 
of the surfaces listed in Tables A-VII and A-IV. The changes 
in x, y are (-0.009, 0.013) inch. The change in s is 
(-0.016) inch. Hence, the lens designer should be aware 
of the tendency of the final surface to move towards the 
first surface, possibly resulting in the design surface 
intercepting the first surface prior to the GLM wall at the 
maximum radius from the axis. This effect results in a 
decrease in aperture, a violation of the design criteria. 

The final design surface is then drawn within an outline 
of the GLM shown in figure 21 illustrating the symmetry of 
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Number 1 in Figures 17 and 18. 
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Figure 20. Final Design of the Second Surface of the Conical 
Lens Calculated from the Design Chart in Fiqure 1 
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Figure 21. Final Lens Design Illustrating the Symmetry and 
Position of the Lens in the GLM. 



the design and the location of the lens within the missile. 
A ray diagram using the final lens design shown in figure 
22 with the distribution of the rays on the image plane 
shown in figure 23. The coordinate values used to draw the 
ray diagram in figure 22 are listed in Table A-VIII. 
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Figure 22. Ray Diagram Showing the Trajectories of the 
Light Rays Through the Final Lens Design. 
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the Image Plane in Figure 22. 



IV. RECOMMENDATIONS FOR FUTURE WORK 



This thesis investigated part of the properties of a 
conical lens. Future studies should investigate: 

a) the effect of skew rays on the image. 

b) the effect of total internal reflection on the image. 

c) the calculation of monochromatic and chromatic 
aberrations for the conical lens. 

d) the availability and applicability of materials to 
use for a lens. 

e) the effect on the incident rays of the shock wave 
in the air ahead of the GLM. 

f) the effect on the image of an object not on the 
lens axis. 

g) the effect on the image when the object is no 
longer in the far field and the curvature of the 
ray front must be taken into account. 

h) the ability of a conical lens to focus coherent 
and incoherent light. 
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V . CONCLUSIONS 



The completed design of figure 22 indicates that a 
conical lens can focus incident light which is parallel 
to the GLM axis. The conical lens design is compatible 
with the aerodynamic requirements of high pressure 
recovery and low drag. The ability to provide optical 
guidance information to the GLM powered by an integral 
rocket ramjet may provide the battle group commander 
with an inexpensive ASMD weapon for shipboard use. 
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APPENDIX A 



CHART SAMPLE OUTPUT AND PROGRAM LISTING 



This appendix contains the program listing for CHART. 

The subroutines listed in Table A-I were copied or derived 
from the HP-9845 utilities library, cassette number 2, 

Ser. No. 09845-10205, program REGPLT. 

Subroutines DRIVER, POLYNOMIAL and PLOT-CUBIC are not 
implemented in the present version of CHART because of time 
constraints. They are designed to be used to fit a poly- 
nomial of degree 3, a cubic, between four points to estimate 
the shape of the second surface. The requirement to fit a 
curve stems from the fact that the trajectory of a ray cannot 
be calculated if the ray does not coincide with a known ray 
trajectory. Hence, two options are open. The first is to 
calculate an infinite number of points on the second surface 
which is not practical. The second option is to estimate the 
actual shape of the second surface with an analytic expression, 
a cubic in this application. The error of the estimate can 
be reduced by designing a second surface with a large number 
of points. CHART has been written to design a lens with a 
maximum number of 250 points. 

CHART, as implemented on the HP-9845T is a slow program. 

The design procedure described in chapter III requires 
approximately fifteen minutes for an experienced operator. 
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Therefore, if the initial and final design charts used 
more or less rays then the computation time should be 
scaled accordingly. 
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TABLE A-I 



SUBROUTINES 


DERIVED FROM THE HP-9845B UTILITIES LIBRARY 


Name 


Line Number 


Plot 


3710 


Laxes 


5280 


Driver 


13910 


Polynomial 


14400 


Plot-Cubic 


14910 


Min 


21040 


Max 


21160 
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TABLE A-II 



INITIAL PR RAMETER VALUES 



R 1 ph a 3 21.00 degrees 

TRN< R 1 pha) * .38 

RH01 * -55.50 degrees 

GUM Radius 3 1.10 inches 

Aperture 3 1.18 Ya 3 8.00 inch 

nl 3 1.00000 n2 3 4.00000 

Number of Rays 3 10 

Design Focal Point 3 4.00 inches 



Rho-initial = 0.80 

TRNCRHO-IHITIRL) = 0.00 

Thet a<cri t i cal > = 14.43 degrees 

Yb 3 1 . 1 0 i nc hes 

n3 1.00000 
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TABLE A-III 



CALCULATED DATA USED TO CONSTRUCT THE DESIGN 
CHART IN FIGURE 16. 



BETA THETA ( RAY ) NORMAL S ALPHA 2 RHO 2 



-1.697 


13.317 


-63.320 


0.000 


21. 180 


-1.697 


-1.697 


13.326 


-63.329 


.007 


21. 171 


-1.614 


-1.697 


13.335 


-63.338 


.013 


21. 162 


-1.530 


-1.697 


13.344 


-63.347 


.020 


21. 153 


-1.447 


-1.697 


13.354 


-68.356 


.027 


21. 144 


-1 . 363 


-1.697 


13. 363 


— 68 • 3»6 


.033 


21 . 134 


-1.279 


-1.697 


13.372 


-68.875 


.040 


21. 125 


-1.195 


-1.697 


13. 331 


-68.384 


.047 


21.116 


-1. 1 1 l 


-1.697 


13.390 


-68.393 


.053 


21. 107 


-1.027 


-1.697 


13. 399 


-68.902 


.060 


21 . 098 


-.942 


-1.697 


13.408 


-68.911 


.067 


21.089 


- • 357 


-1.697 


13.417 


-63.920 


.073 


21.030 


-.772 


-1.697 


13.426 


-63.929 


.080 


21.071 


-.637 


-1.697 


13.435 


-68.933 


.037 


21.062 


-.602 


-1.697 


13.444 


-63.947 


.093 


21.053 


-.517 


-1.697 


13.453 


-63.956 


. 100 


21.044 


-.431 


-1.697 


13.462 


-63.965 


. 107 


21.035 


-.345 


-1.697 


13.471 


-68.974 


. 113 


21.026 


-.259 


-1.697 


13. 479 


-68.982 


. 120 


21.013 


-. 173 


-1.697 


13.488 


-68.991 


. 127 


21.009 


-.037 


-1.697 


13.479 


-68.982 


. 120 


21.018 


-. 173 


-1.697 


13.430 


-63.933 


. 121 


21.017 


-. 164 


-1.697 


13.481 


-63.984 


. 121 


21.016 


-. 156 


-1.697 


13.432 


-68.985 


. 122 


21.015 


-. 147 


-1.697 


13.433 


-68.936 


. 123 


21.014 


-. 133 


-1.697 


13.484 


-68.987 


. 123 


21.013 


-. 130 


-1.697 


13.485 


-68.988 


. 124 


21.012 


-. 121 


-1.697 


13.436 


-63.989 


. 125 


21.011 


-.112 


-1.697 


13. 486 


-68.939 


. 125 


21.011 


-. 1 Q 4 


-1 . 697 


13.487 


-68.990 


. 126 


21.010 


-.095 


-1.697 


13.438 


-68.991 


. 127 


21.009 


-.037 


-1.697 


13.489 


-68.992 


. 127 


21.008 


-.073 


-1.697 


13.490 


-68.993 


. 123 


21.007 


-.069 


-1.697 


13.491 


-68.994 


. 129 


21.006 


-.061 


-1.697 


13.492 


-63.995 


. 129 


21.005 


-. 052 


-1.697 


13.493 


-68.996 


. 130 


21.004 


-.043 


-1.697 


13.494 


-68.996 


. 131 


21.004 


-.035 


-1.697 


13.494 


-68.997 


. 131 


21.003 


-.026 


-1.697 


13.495 


-68.998 


. 132 


21.002 


-.017 


-1.697 


13.496 


-68.999 


. 133 


21.001 


-.009 


-1.697 


13.495 


-63.998 


. 132 


21.002 


-.017 


-1.697 


13.495 


-68.993 


. 132 


21.002 


-.016 


-1.697 


13. 495 


-68.998 


. 132 


21.002 


-.016 


-1.697 


13.496 


-68.999 


. 132 


21.001 


-.015 


-1.697 


13.496 


-68.999 


. 132 


21.081 


-.014 


-1.697 


13.496 


-63.999 


. 132 


21.001 


-.013 
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TABLE A-III (CONT) 



RAY 


BETA 


THETA < RAY > 


NORMAL 


S 


ALPHA 2 


RHO 2 


1 


- 1.697 


13. 496 


- 68.999 


. 133 


21.001 


-.012 


1 


- 1.697 


13.496 


- 68.999 


. 133 


21. 001 


-.011 


1 


- 1.697 


13.496 


- 63.999 


. 133 


21.001 


-.010 


l 


- 1.697 


13.496 


- 63.999 


. 133 


21.001 


-.010 


l 


- 1.697 


13. 496 


- 68.999 


. 133 


21.001 


-.009 


l 


- 1.697 


13.496 


- 63.999 


. 133 


21.001 


-.003 


l 


- 1.697 


13.496 


- 68.999 


. 133 


21.001 


- . 007 


l 


- 1.697 


13.496 


- 63.999 


. 133 


21.001 


-.006 


1 


- 1.697 


13.497 


- 63.999 


. 133 


21.001 


-.005 


1 


- 1.697 


13.497 


- 69. 000 


. 133 


21.000 


-.004 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.003 


1 


- 1. 697 


13.497 


- 69.000 


. 133 


21.000 


-.003 


l 


- 1.697 


13. 497 


- 69.000 


. 133 


21 . 000 


-.002 


l 


- 1 .697 


13.497 


- 69.000 


. 133 


21.000 


-.001 


l 


- 1.697 


13.497 


- 69.000 


. 133 


21 . 000 


-.002 


1 


- 1 .697 


13.497 


- 69.000 


. 133 


21.000 


-.002 


1 


- 1 .697 


13.497 


- 69.000 


. 133 


21.000 


-.002 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.001 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.001 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.001 


l 


- 1 .697 


13.497 


- 69.000 


. 133 


21.000 


-. 001 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.001 


l 


- 1.697 


13.497 


- 69.000 


.133 


21 . 000 


-.001 


l 


- 1.697 


13. 497 


- 69.000 


. 133 


21 . 000 


-.001 


l 


- 1.697 


13. 497 


- 69.000 


. 133 


21.000 


-.001 


l 


- 1.697 


13.497 


- 69.000 


. 133 


21 . 000 


-.001 


1 


- 1.697 


13.497 


- 69. 000 


. 133 


21 . 000 


-.001 


t 


- 1.697 


13.497 


- 69. 000 


. 133 


21.000 


-.001 


l 


- 1.697 


13.497 


- 69.000 


.133 


21.000 


-.001 


l 


- 1.697 


13.497 


- 69.000 


. 133 


21 . 000 


-. 000 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-. 0 O 0 


1 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.000 


1 


- 1.697 


13. 497 


- 69.000 


. 133 


21.000 


-.000 


l 


- 1.697 


13.497 


- 69.000 


. 133 


21.000 


-.000 


2 


- 3.673 


13.087 


- 63.589 


0.000 


21.411 


-3 . 673 


2 


- 3.673 


13. 108 


- 68.611 


.013 


21.339 


- 3.493 


2 


- 3.673 


13. 129 


- 63.632 


.027 


21.368 


• - 3.321 


2 


- 3.673 


13. 150 


- 68.653 


.040 


21.347 


- 3.144 


2 


- 3.673 


13 . 1 7 1 


- 68 • 67 4 


.053 


21.326 


- 2 . 966 


2 


- 3.673 


13. 192 


- 68 • 695 


.067 


21 . 305 


- 2. 737 


2 


- 3.673 


13.213 


- 63 .716 


.080 


21.234 


- 2. 608 


2 


- 3.673 


13.234 


- 63. 737 


.093 


21.263 


- 2.427 


2 


- 3.673 


13.235 


- 68. 758 


. 107 


21.242 


- 2.245 


d . 


- 3.673 


13.276 


- 63.779 


. 120 


21.221 


- 2.063 


2 


- 3.673 


13.296 


- 63.799 


. 133 


21.201 


- 1.330 
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TABLE A-III (CONT) 



RAY 


BETA 


THETA < RAY ) 


NORMAL 


3 


ALPHA 2 


RHO 2 


2 


- 3.673 


13.317 


- 68. 320 


. 147 


21. 130 


- 1 . 696 


2 


- 3.673 


13.337 


- 63.340 


. 160 


21 . 160 


- 1.511 


2 


- 3.673 


13. 353 


- 63.361 


. 174 


21. 139 


- 1.325 


2 


- 3.673 


13.373 


- 63.331 


. 137 


21.119 


- 1.139 


2 


- 3.673 


13.393 


- 63.901 


.200 


21.099 


-.951 


2 


- 3.673 


13.413 


- 63. 921 


.214 


21.079 


-.763 


2 


- 3.673 


13. 433 


- 68 • 94 1 


.227 


21.059 


-.573 


2 


- 3.673 


13.453 


- 68. 961 


.240 


21.039 


-. 383 


2 


- 3.673 


13.477 


- 68.980 


.254 


21.020 


-. 192 


2 


- 3.673 


13.453 


- 68.961 


.240 


21.039 


-.333 


2 


- 3.673 


13.460 


- 63.963 


.242 


21.037 


- . 364 


2 


- 3.673 


13. 462 


- 63.965 


.243 


21.035 


-.345 


2 


- 3.673 


13. 464 


- 63.967 


.244 


21.033 


-.326 


2 


- 3.673 


13.466 


- 63.969 


.246 


21 . 031 


-.307 


2 


- 3.673 


13.463 


- 68.971 


.247 


21.029 


-.233 


2 ' 


- 3.673 


13.470 


- 63.973 


.243 


21.027 


-. 263 


2 


- 3.673 


13. 472 


- 63.975 


.250 


21. 023 


-. 249 


2 


- 3.673 


13. 474 


- 63.976 


.251 


21.024 


-.230 


2 


- 3.673 


13.475 


- 68.978 


.252 


21 . 022 


-.211 


2 


- 3.673 


13.477 


- 63.930 


. 254 


21.020 


-.192 


2 


- 3.673 


13.479 


- 68.932 


.255 


21. 018 


-. 173 


2 


- 3.673 


13.481 


- 68.984 


.256 


21.016 


-. 154 


2 


- 3.673 


13.433 


- 68.936 


.258 


21.014 


-. 134 


2 


- 3.673 


13.435 


- 63.938 


.259 


21.012 


-. 115 


2 


- 3. 673 


13.437 


- 63.990 


.260 


21 . 010 


-.096 


2 


- 3.673 


13.489 


- 63.992 


.262 


21 . 0 O 8 


-. 077 


2 


- 3.673 


13.491 


- 63. 994 


.263 


21.006 


-.053 


2 


- 3. 673 


13. 493 


- 63.996 


.264 


21.004 


-.033 


2 


- 3. 673 


13.495 


- 63.998 


.266 


21.002 


-.019 


2 


- 3.673 


13.493 


- 63.996 


.264 


21.004 


-.033 


2 


- 3.673 


13.493 


- 68.996 


.264 


21.004 


-.037 


2 


- 3.673 


13.494 


- 63.996 


.265 


21.004 


-.035 


2 


- 3.673 


13.494 


- 68.997 


.265 


21.003 


-.033 


2 


- 3.673 


13.494 


- 63.997 


.265 


21.003 


-.031 


2 


- 3.673 


13.494 


- 63. 997 


.265 


21.003 


-.029 


2 


- 3.673 


13. 494 


- 68.997 


.265 


21.003 


-.027 


2 


- 3.673 


13.494 


- 68.997 


.265 


21.003 


-.025 


2 


- 3.673 


13.495 


- 63.998 


.265 


21.002 


-.023 


2 


- 3. 673 


13.495 


- 68.998 


.265 


21.002 


-.021 


2 


- 3.673 


13.495 


- 68.998 


.266 


21.002 


-.019 


2 


- 3.673 


13.495 


- 68.993 


.266 


21.002 


-.017 


2 


- 3.673 


13.495 


- 63.998 


.266 


21.002 


-.015 


2 


- 3.673 


13. 496 


- 68.999 


.266 


21.001 


-.013 


2 


- 3.673 


13.496 


- 68.999 


.266 


21.001 


-.012 


2 


- 3.673 


13.496 


- 68.999 


. 266 


21.001 


-.010 


2 


- 3.673 


13.496 


- 68.999 


.266 


21.001 


-.003 
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TABLE A-III (CONT) 



RAY 


BETA 


THETA < RAY ) 


NORMAL 


S 


ALPHA 2 


RHO 2 


2 


- 3.673 


13.496 


- 63.999 


.267 


21.001 


-. 006 


& 


- 3.673 


13.497 


- 69.000 


. 267 


21.000 


-. 004 


A. 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


- . 004 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 004 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 003 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.003 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 00:3 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.003 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 003 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.003 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 002 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.001 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.001 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 001 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.001 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.001 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-. 000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


. 267 


21.000 


-.000 


2 


- 3.673 


13. 497 


- 69.000 


.267 


21.000 


-. 000 


2 


- 3. 673 


13. 497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21 . 000 


-.000 


2 


- 3.673 


13. 497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13. 497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13. 497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


* -.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21. 000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


2 


- 3.673 


13.497 


- 69.000 


.267 


21.000 


-.000 


3 


- 5.999 


12.737 


- 63.290 


0.000 


21.710 


- 5.999 


3 


- 5.999 


12.325 


- 63.327 


.020 


21.673 


- 5.722 
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TABLE A-III (CONT) 



BETA THETFKRAY ) NORMAL S ALPHA 2 RHO 2 



- 3.999 


12.862 


- 63 . 365 


.040 


21.633 


- 3.442 


- 5.999 


12.399 


- 68.402 


.060 


21.398 


- 3. 160 


- 3.999 


12.936 


- 68 . 439 


.080 


21 .361 


- 4.376 


- 3.999 


12.972 


- 68.473 


.100 


21.525 


- 4.539 


- 3.999 


13 . 0 O 9 


- 68.512 


. 120 


21.488 


- 4.300 


- 3.999 


13.043 


- 68.543 


. 140 


21.432 


- 4. 009 


- 3.999 


13.081 


- 68.384 


. 160 


21.416 


- 3.715 


- 3. 999 


13.117 


- 68. 620 


. 180 


21.380 


- 3.419 


- 3.999 


13. 133 


- 68.656 


.200 


21.344 


- 3. 120 


- 3. 999 


13. 189 


- 68.692 


.220 


21 ■ 308 


- 2.319 


- 3.999 


13.224 


- 68.727 


.240 


21.273 


- 2.316 


- 5.999 


13.239 


- 68.762 


.260 


21.238 


- 2.210 


- 3.999 


13.294 


- 68. 797 


.280 


21.203 


- 1.902 


- 3.999 


13.329 


- 68.831 


.300 


21. 169 


- 1.591 


- 5.999 


13.363 


- 68 . 966 


.320 


21 . 134 


- 1.273 


- 5.999 


13.397 


- 63.900 


.340 


21.100 


- . 962 


- 3.999 


13.431 


- 68.933 


.360 


21.067 


-.644 


- 3.999 


13.464 


- 68.967 


.380 


21.033 


-.323 


- 5.999 


13. 497 


- 69.000 


. 400 


21.000 


-.000 


- 3.999 


13. 464 


- 68.967 


.380 


21.033 


-.323 


- 3.999 


13.467 


- 63.970 


.382 


21.030 


-. 291 


- 3.999 


13. 471 


- 68.974 


.384 


21.026 


-.259 


- 5.999 


13.474 


- 68.977 


.386 


21.023 


-.227 


- 3.999 


13.477 


- 68.980 


.338 


21.020 


-. 194 


- 3.999 


13.481 


- 68.983 


.390 


21.017 


-. 162 


- 3.999 


13.484 


- 63.987 


.392 


21. 013 


-. 130 


- 3.999 


13.487 


- 68.990 


.394 


21.010 


-.097 


- 5.999 


13.490 


- 68.993 


.396 


21 . 007 


-.065 


- 3.999 


13.494 


- 63.997 


.398 


21.003 


-.032 


- 5.999 


13.497 


- 69.000 


.400 


21.000 


-.000 


- 3.999 


13.494 


- 68.997 


.398 


21.003 


-.032 


- 3.999 


13.494 


- 68.997 


.399 


21.003 


-.029 


- 3.999 


13.494 


- 68.997 


.399 


21.003 


-.026 


- 3.999 


13.493 


- 68.998 


.399 


21.002 


-.023 


- 5.999 


13.493 


- 68.998 


.399 


21.002 


-.019 


- 3.999 


13.493 


- 68.998 


.399 


21.002 


-.016 


- 3.999 


13.496 


- 68.999 


.400 


21.001 


-.013 


- 3.999 


13.496 


- 68.999 


.400 


21.001 


• -.010 


- 3.999 


13.496 


- 68.999 


.400 


21.001 


-.006 


- 5.999 


13.497 


- 69.000 


.400 


21.000 


-.003 


- 3.999 


13.497 


- 69.000 


. 400 


21.000 


-.000 


- 3.999 


13.497 


- 69.000 


.400 


21.000 


-.003 


- 3.999 


13.497 


- 69.000 


.400 


21.000 


-.003 


- 3.999 


13.497 


- 69.000 


.400 


21.000 


-.003 


- 3.999 


13.497 


- 69.000 


.400 


21. 000 


-.002 


- 3.999 


13.497 


- 69. 000 


.400 


21.000 


-.002 
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4 

4 

4 

4 

4 

4 
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TABLE A-III (CONT) 



BETA THETACRAY) NORMAL S ALPHAS 



-5.999 


13.497 


-69. 000 


. 400 


21.000 


-5. 999 


13. 497 


-69.000 


. 400 


21. 000 


-5.999 


13.497 


-69.000 


.400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21.000 


-5.999 


13.497 


-69.000 


.400 


21.000 


-5. 999 


13.497 


-69.000 


.400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21.000 


-5.999 


13.497 


-69.000 


.400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21.000 


-5.999 


13.497 


-69. 000 


.400 


21.000 


-5.999 


13.497 


-69.000 


. 400 


21. 000 


-5. 999 


13. 497 


-69. 000 


.400 


21.000 


-5. 999 


13.497 


-69. 000 


. 400 


21.000 


-5.999 


13.497 


-69.000 


.400 


21.000 


-5.999 


13.497 


-69. 000 


. 400 


21.000 


-3.765 


12.391 


-67. 394 


0.000 


22. 106 


-8. 765 


12.449 


-67.952 


.027 


22. 043 


-3. 765 


12.507 


-68.010 


.053 


21.990 


-3. 765 


12. 565 


-63. 063 


.030 


21.932 


-8.765 


12.623 


-63. 126 


. 107 


21.374 


-3. 765 


12.631 


-63. 134 


. 133 


21 .316 


-3.765 


12. 733 


-63.241 


. 160 


21.759 


-3.765 


12.795 


-68.298 


. 137 


21. 702 


-3.765 


12.352 


-63.355 


.214 


21. 645 


-3.765 


12.903 


-68.411 


.240 


21.589 


-8.765 


12.964 


-63. 467 


.267 


21.533 


-8.765 


13.020 


-63.523 


.294 


21.477 


-3.765 


13.075 


-63.578 


.320 


21.422 


-3.765 


13. 130 


-68. 633 


.347 


21.367 


-3.765 


13. 134 


-68 • 687 


.374 


21.313 


-3.765 


13.233 


-63.741 


. 400 


21.259 


-8.765 


13.291 


-68.794 


. 427 


21. 206 


-3. 765 


13.343 


-63.346 


. 454 


21. 154 


-3. 765 


13.395 


-63.898 


.430 


21. 102 


-3.765 


13. 447 


-68. 949 


.507 


21.051 


-3. 765 


13.447 


-63.949 


.507 


21.051 


-3.765 


13.452 


-63.955 


.510 


21.045 


-8. 765 


13.457 


-63.960 


.513 


21.040 


-3.765 


13.462 


-68.965 


.515 


21.035 


-8.765 


13. 467 


-63. 970 


.513 


21.030 


-8.765 


13.472 


-68.975 


.521 


21.025 


-8. 765 


13.477 


-68. 930 


.523 


21.020 


-3.765 


13.432 


-63. 985 


.526 


21.015 



RHO 2 



-.002 
-.001 
-.001 
-.001 
-.000 
000 
-. 000 
-.000 
-.000 
- . 000 
- . 000 
-.000 
-. 000 
-.000 
-.000 
-.000 
-.000 

-8 . 765 
-3. 377 
-7. 934 
-7 . 586 
-7. 132 
-6.774 
-6.361 
-5. 942 
-5.513 
-5.089 
-4. 654 
-4.214 
-3. 763 
-3.317 
-2. 360 
-2.393 
-1.930 
-1 . 456 
-.976 
-.491 
-.491 
-.442 
-.393 
-.344 
-.295 
-.246 
-. 197 
-. 148 
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TABLE A-III (CONT) 



BETfi 



- 3.763 
- 3.765 
- 3.763 
- 3.765 
- 3.763 
- 8.765 
- 3.765 
- 8.765 
- 8.765 
- 8.765 
- 3. 765 
- 8.765 
- 3.765 
- 3. 765 
- 3.763 
- 3.765 
- 8.765 
- 3.765 
- 3.765 
- 8.765 
- 3.763 
- 8.765 
- 3.765 
- 8.765 
- 8.763 
- 8.765 
- 8.765 
- 3.765 
- 8.765 
- 8.763 
- 8.763 
- 8.765 

- 12.092 
- 12.092 
- 12. 092 
- 12.092 
- 12.092 
- 12.092 
- 12.092 
- 12. 092 
- 12.092 
- 12.092 
- 12.092 
- 12.092 
- 12.092 



THETFKRAY ) NORMAL S ALPHA 2 RHO 2 



13.487 


- 68 • 990 


.529 


21.010 


-.099 


13.492 


- 68.995 


.531 


21.005 


-.049 


13.492 


- 63.995 


.531 


21.005 


-.049 


13.493 


- 68.995 


.531 


21.005 


- . 044 


13.493 


- 63.996 


.532 


21.004 


-.040 


13. 494 


- 68.996 


.532 


21.004 


-. 035 


13.494 


- 63.997 


.532 


21.003 


-.033 


13.495 


- 68.997 


.533 


21.003 


-.025 


13.495 


- 63.993 


.533 


21.002 


-.020 


13.496 


- 68.998 


.533 


21.002 


-.015 


13. 496 


- 68.999 


.533 


21.001 


-.010 


13.497 


- 63.999 


.534 


21.001 


-.005 


13.497 


- 63.999 


.534 


21.001 


-.005 


13.497 


- 69.000 


.534 


21.000 


-. 004 


13.497 


- 69.000 


.534 


21.000 


-.004 


13.497 


- 69.000 


.534 


21.000 


-.003 


13.497 


- 69.000 


.534 


21.000 


-.003 


13.497 


- 69.000 


.534 


21.000 


-.002 


13.497 


- 69.000 


.534 


21.000 


-.002 


13.497 


- 69.000 


.534 


21.000 


-.001 


13.497 


- 69.000 


.534 


21.000 


-.001 


13.497 


- 69.000 


.534 


21.000 


-.000 


13.497 


- 69. 008 


.534 


21.000 


-.000 


13.497 


- 69.000 


.534 


21.000 


-.000 


13.497 


- 69.000 


.334 


21.000 


-.000 


13.497 


- 69.000 


.534 


21.000 


-.000 


13. 497 


- 69.000 


.534 


21.000 


-.000 


13.497 


- 69.000 


. 534 


21.000 


-.000 


13.497 


- 69.000 


.534 


21.000 


-.000 


13.497 


- 69.000 


. 534 


21.000 


-.000 


13.497 


- 69.000 


. 534 


21.000 


-.000 


13.497 


- 69.000 


.534 


21.000 


-.000 


11.356 


- 67.339 


0.000 


22.641 


- 12.092 


11.941 


- 67.444 


.033 


22.536 


- 11.387 


12.027 


- 67.330 


.067 


22.470 


- 11.073 


12 . 112 


- 67.613 


. 100 


22.333 


.- 10.349 


12. 197 


- 67. 700 


. 133 


22.300 


- 10. 015 


12.283 


- 67.736 


. 167 


22.214 


- 9.471 


12.363 


- 67.871 


.200 


22. 129 


- 8.917 


12.453 


- 67.936 


.234 


22.044 


- 3.353 


12.537 


- 68.040 


.267 


21.960 


- 7.773 


12.622 


- 68. 123 


.300 


21.373 


- 7. 192 


12.705 


- 63.208 


.334 


21.792 


- 6. 596 


12. 789 


- 63.292 


.367 


21.703 


- 5.989 


12.371 


- 68.374 


.400 


21 .626 


- 5. 370 
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TABLE A-III (CONT) 



BETA 



- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 



THETA < RAY > NORMAL S ALPHA 2 RHO 2 



12.953 


- 68. 456 


. 434 


21.344 


- 4.740 


13.034 


- 63.337 


. 467 


21.463 


- 4.099 


13 . 114 


- 68. 617 


.301 


21.383 


- 3. 446 


13. 193 


- 68. 696 


.534 


21.304 


- 2.731 


13.271 


- 63.774 


.367 


21.226 


- 2. 104 


13.348 


- 68.831 


.601 


21 . 149 


- 1.413 


13.423 


- 68.926 


• 634 


21.074 


-.714 


13.348 


- 68.831 


.601 


21. 149 


- 1.413 


13.333 


- 68.358 


. 604 


21. 142 


- 1.343 


13.363 


- 63. 866 


.607 


21. 134 


- 1.273 


13.371 


- 68.874 


.611 


21 . 126 


- 1.206 


13.378 


- 68.881 


.614 


21.119 


- 1 . 136 


13.386 


- 68.889 


.617 


21.111 


- 1 . 066 


13.393 


- 68.896 


.621 


21 . 104 


-.993 


13.401 


- 68.904 


.624 


21.096 


-.923 


13.408 


- 63.911 


.627 


21.089 


-.333 


13.416 


- 68.919 


.631 


21.081 


-.734 


13.423 


- 68.926 


.634 


21.074 


-.714 


13.431 


- 68.934 


.637 


21.066 


-.643 


13.438 


- 68.941 


. 641 


21.059 


-.372 


13.446 


- 68.948 


.644 


21.052 


-.501 


13.453 


- 68.936 


.647 


21.044 


-.430 


13.460 


- 63.963 


.631 


21.037 


-.358 


13.468 


- 68.971 


. o 3 4 


21.029 


-.237 


13.473 


- 68.978 


.657 


21.022 


-.215 


13.482 


- 68.985 


.661 


21.015 


-.144 


13. 490 


- 68.993 


.664 


21.007 


-. 072 


13.482 


- 68.985 


.661 


21.013 


-. 144 


13.483 


- 68.986 


• 66 1 


21.014 


-. 137 


13.484 


- 68.987 


. 66 1 


21.013 


-. 129 


13.483 


- 68.988 


.662 


21.012 


-. 122 


13.433 


- 63.988 


.66 2 


21.012 


-. 115 


13.486 


- 68.989 


. 662 


21.011 


-. 108 


13.487 


- 68.990 


• 663 


21.010 


-. 101 


13.488 


- 68.990 


.663 


21.010 


-.093 


13.488 


- 68.991 


.663 


21.009 


-.086 


13.489 


- 68.992 


. 664 


21.008 


-.079 


13.490 


- 68.993 


.664 


21.007 


* -.072 


13.490 


- 63.993 


. 664 


21.007 


-.063 


13.491 


- 63.994 


.663 


21.006 


-.058 


13.492 


- 68.993 


. 665 


21.003 


-.030 


13.493 


- 68.996 


. 663 


21.004 


-.043 


13.493 


- 68.996 


.666 


21.004 


-.036 


13.494 


- 63.997 


.666 


21.003 


-. 029 


13.493 


- 63.998 


.666 


21.002 


-.022 


13.496 


- 68.999 


,667 


21.001 


-.014 
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TABLE A-III (CONT) 



BETA 



- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 12.092 

- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16.140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 



THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



13.496 


- 68.999 


.667 


21.001 


-.007 


13.497 


- 69.000 


.667 


21.000 


-.000 


13.496 


- 68.999 


. 667 


21.001 


-.007 


13.496 


- 68.999 


. 667 


21.001 


-.006 


13.496 


- 68.999 


.667 


21.001 


-.006 


13.497 


- 68.999 


.667 


21.001 


-.005 , 


13.497 


- 69.000 


.667 


21.000 


—. 004 ’ 


13.497 


- 69.000 


.667 


21.000 


— .004 


13.497 


- 69.000 


.667 


21.000 


-.003 


13.497 


- 69.000 


.667 


21.000 


-.002 


13.497 


- 69.000 


.667 


21.000 


-.001 


13.497 


- 69.000 


.667 


21 . 000 


-.001 


13.497 


- 69.000 


.667 


21.000 


-.000 


13.497 


- 69.000 


.667 


21.000 


-.001 


13.497 


- 69.000 


.667 


21.000 


-.001 


13.497 


- 69.000 


.667 


21.000 


-.001 


13.497 


- 69.000 


.667 


21.000 


-.001 


13.497 


- 69.000 


. 667 


21.000 


-.000 


13.497 


- 69.000 


.667 


21.000 


-. 000 


13.497 


- 69.000 


.667 


21 . 000 


-.000 


13.497 


- 69.000 


.667 


21.000 


-.000 


13.497 


- 69.000 


.667 


21.000 


-.000 


13.497 


- 69.000 


.667 


21.000 


-.000 


13.497 


- 69.000 


• 667 


21.000 


-.000 


11. 120 


- 66.623 


0.000 


23.377 


- 16.140 


11.239 


- 66.742 


.040 


23.258 


- 15.519 


11.359 


- 66.862 


.080 


23.138 


- 14.382 


11.479 


- 66.982 


. 120 


23. 018 


- 14.227 


11.601 


- 67. 104 


.160 


22.896 


- 13.556 


11.723 


- 67.226 


.200 


22.774 


- 12.866 


11.845 


- 67.348 


.240 


22.652 


- 12. 157 


11.968 


- 67.471 


.280 


22. 529 


- 11 . 430 


12.090 


- 67.593 


.320 


22. 407 


- 10.683 


12.213 


- 67.716 


.360 


22. 234 


- 9.916 


12.336 


- 67.339 


.400 


22. 161 


- 9. 123 


12.458 


- 67.961 


.440 


22.039 


- 8.319 


12.579 


- 68.082 


.480 


21.918 


* - 7.438 


12.700 


- 68.203 


.521 


21.797 


- 6.635 


12.819 


- 68.322 


.561 


21.678 


- 5.759 


12.938 


- 68.441 


.601 


21.559 


- 4.360 


13.054 


- 68.557 


. 64 1 


21.443 


- 3.937 


13. 169 


- 68.672 


. 681 


21.328 


- 2. 990 


13.281 


- 68.734 


.721 


21.216 


- 2.019 


13.390 


- 68.893 


.761 


21. 107 


- 1.022 


13.281 


- 68.784 


.721 


21.216 


- 2.019 



73 



6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 



TABLE A-III (CONT) 



BETA 



- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16.140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16. 140 
- 16 . 140 
- 16. 140 
- 16. 140 
- 16. 140 



THETA < RAY > NORMAL S ALPHA 2 RHO 2 



13.292 


- 68.795 


. 725 


21.205 


- 1.920 


13.303 


- 68. 806 


.729 


21. 194 


- 1.321 


13.314 


- 68.817 


.733 


21. 183 


- 1 . 722 


13.325 


- 68.828 


. 737 


21. 172 


- 1.623 


13.336 


- 68.839 


. 741 


21. 161 


- 1.524 


13.347 


- 68.850 


. 745 


21.150 


- 1.424 


13.358 


- 68.861 


. 749 


21. 139 


- 1.324 


13. 369 


- 63.872 


. 753 


21. 128 


- 1.223 


13. 380 


- 68.383 


.757 


21.117 


- 1 . 123 


13.390 


- 68.893 


.761 


21. 107 


- 1.022 


13. 401 


- 68.904 


.765 


21.096 


-. 921 


13.412 


- 63.915 


.769 


21.085 


-.320 


13.423 


- 68.926 


. 773 


21.074 


-.713 


13.433 


- 68.936 


. 777 


21.064 


-.616 


13.444 


- 68.947 


. 731 


21.053 


-.514 


13.455 


- 68.958 


.785 


21.042 


-.412 


13.465 


- 68.963 


.789 


21.032 


-.309 


13.476 


- 68.979 


. 793 


21.021 


-.206 


13.487 


- 63.989 


. 797 


21.011 


-. 103 


13.476 


- 68.979 


. 793 


21.021 


-.206 


13.477 


- 63.980 


.793 


21.020 


-.196 


13.473 


- 68.981 


. 794 


21.019 


-. 136 


13.479 


- 63.982 


. 794 


21.013 


-. 176 


13.480 


- 63.983 


. 794 


21.017 


-. 165 


13.481 


- 68.984 


. 795 


21.016 


-. 155 


13.482 


- 68.985 


.795 


21.015 


-. 145 


13.433 


- 68.936 


.796 


21.014 


-. 134 


13.484 


- 68.987 


.796 


21.013 


-. 124 


13.485 


- 63.983 


. 796 


21.012 


-. 114 


13. 487 


- 68.939 


.797 


21.011 


-. 103 


13.488 


- 63.991 


. 797 


21.009 


-.093 


13.489 


- 68.992 


. 798 


21.008 


-.083 


13.490 


- 68.993 


.798 


21.007 


-.072 


13.491 


- 68.994 


.798 


21.006 


-.062 


13.492 


- 63.995 


.799 


21.005 


-.052 


13.493 


- 63.996 


.799 


21.004 


-.041 


13.494 


- 68.997 


.800 


21.003 


. -.031 


13.495 


- 63.998 


.300 


21.002 


-.021 


13.496 


- 68.999 


.800 


21.001 


-.010 


13.495 


- 68.998 


.800 


21.002 


-. 021 


13.495 


- 68. 998 


.800 


21.002 


-.020 


13.495 


- 63.998 


.800 


21 . 002 


-.019 


13.495 


- 68.998 


.800 


21.002 


-.018 


13.495 


- 68.998 


.300 


21.002 


-.017 


13.495 


- 63.998 


.800 


21.002 


-.016 


13.496 


- 63.999 


.300 


21.001 


-.014 
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BETA TH £ TA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 16. 140 


13.496 


- 68.999 


. 300 


21.001 


-.013 


- 16.140 


13.496 


- 68.999 


. 800 


21.001 


-.012 


- 16.140 


13.496 


- 63.999 


.300 


21.001 


-.011 


- 16 . 140 


13.496 


- 63. 999 


.300 


21.001 


-.010 


- 16 . 140 


13.496 


- 68.999 


.300 


21.001 


-. 009 


- 16. 140 


13.496 


- 68. 999 


.300 


21.001 


-.008 


- 16.140 


13.496 


- 68. 999 


.301 


21.001 


-.007 


- 16. 140 


13.496 


- 68.999 


.301 


21.001 


- . 006 


- 16. 140 


13.497 


- 68. 999 


.801 


21.001 


-.003 


- 16. 140 


13.497 


- 69. 000 


.801 


21.000 


-.004 


- 16. 140 


13.497 


- 69. 000 


.301 


21.000 


-.003 


- 16. 140 


13.497 


- 69.000 


.301 


21.000 


-.002 


- 16. 140 


13.497 


- 69.000 


.801 


21.000 


-.001 


- 16 . 140 


13.497 


- 69.000 


. 301 


21.000 


-.000 


- 21 . 114 


10.033 


- 65.391 


0.000 


24. 409 


- 21 . 114 


- 21. 114 


10.246 


- 65. 749 


.047 


24.251 


- 20.394 


- 21 . 1 14 


10. 406 


- 65.909 


.093 


24.091 


- 19. 647 


- 21 . 114 


10.370 


- 66.073 


. 140 


23.927 


- 13.372 


- 21.114 


10. 736 


- 66.239 


. 187 


23.761 


- 18. 068 


- 21. 114 


10.903 


- 66.408 


.234 


23.592 


- 17.233 


- 21. 114 


11.076 


- 66 . 379 


.280 


23.421 


- 16. 366 


- 21. 114 


11.249 


- 66.752 


.327 


23.248 


- 13. 466 


- 21. 114 


11.424 


- 66. 926 


.374 


23.074 


- 14. 331 


- 21. 114 


1 1 . 600 


- 67. 103 


.420 


22.897 


- 13.360 


- 21. 114 


11.778 


- 67.280 


. 467 


22. 720 


- 12.550 


- 21 . 114 


11.936 


- 67.439 


.314 


22.341 


- 11.500 


- 21 . 114 


12. 133 


- 67.637 


.361 


22 • 363 


- 10.410 


- 21. 114 


12.313 


- 67.816 


.607 


22. 184 


- 9.276 


- 21. 114 


12. 491 


- 67.994 


.654 


22.006 


- 3.097 


- 21. 114 


12.667 


- 68. 170 


.701 


21.830 


- 6.372 


- 21.114 


12. 341 


- 68.344 


.747 


21.636 


- 5.399 


- 21 . 114 


13.012 


- 68.315 


.794 


21.483 


- 4.277 


- 21. 114 


13. 179 


- 68.682 


.841 


21.313 


- 2.904 


- 21. 114 


13.341 


- 68.844 


.883 


21.156 


- 1.479 


- 21.114 


13. 179 


- 68.682 


.841 


21.313 


- 2. 904 


- 21. 114 


13. 195 


- 68.698 


. 846 


21.302 


- 2. 764 


- 21 . 114 


13.212 


- 68.715 


.350 


21.235 


* - 2.623 


- 21. 114 


13.223 


- 68.731 


.335 


21.269 


- 2.482 


- 21. 114 


13.244 


- 68. 747 


.360 


21.253 


- 2.340 


- 21. 114 


13.260 


- 68.763 


.864 


21.237 


- 2. 198 


- 21.114 


13.277 


- 68. 730 


. 869 


21.220 


- 2.033 


- 21. 114 


13.293 


- 68.796 


. 874 


21.204 


- 1.912 


- 21.114 


13. 309 


- 68.812 


. 878 


21. 188 


- 1.768 


- 21. 114 


13.325 


- 63. 823 


.383 


21. 172 


- 1.624 


- 21. 114 


13.341 


- 68.844 


.333 


21. 156 


- 1.479 
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TABLE A-III (CONT) 



BETA THETfKRAY) NORMAL S ALPHA2 RHO 2 



-21. 114 


13.357 


-68 • 360 


.392 


21. 140 


-1.333 


-21 . 114 


13.373 


-68.376 


.397 


21. 124 


-1 . 187 


-21. 114 


13.338 


-63.391 


.902 


21. 109 


-1.041 


-21.114 


13.484 


-68.907 


.906 


21.093 


-.394 


-21. 114 


13.428 


-68.923 


.911 


21.077 


-.746 


-21. 114 


13.435 


-63.938 


. 916 


21 . 062 


-. 593 


-21. 114 


13.451 


-68.954 


.920 


21.046 


-. 449 


-21. 114 


13.466 


-63.969 


.925 


21. 031 


-. 300 


-21. 114 


13.482 


-68.985 


.930 


21.015 


-. 150 


-21 . 1 14 


13.497 


-69.000 


. 934 


21.000 


-.000 


-27.263 


8.626 


-64. 129 


0. 000 


25.871 


-27.265 


-27.265 


8.328 


-64.323 


.053 


25.677 


-26.493 


-27.265 


9.021 


-64.524 


. 107 


25. 476 


-25.631 


-27.265 


9.229 


-64.732 


. 160 


25.268 


-24.327 


-27.265 


9.444 


-64.947 


.214 


25.053 


-23.923 


-27.265 


9.665 


-65 • 1 68 


.267 


24.832 


-22.980 


-27.265 


9. 394 


-65.397 


.320 


24. 603 


-21.981 


-27.265 


10. 129 


-65.632 


. 374 


24.363 


-20.926 


-27.263 


10.371 


-65.874 


.427 


24. 126 


-19.312 


-27.265 


10.620 


-66. 122 


.480 


23.878 


-13. 634 


-27.265 


18.374 


-66.377 


.534 


23.623 


-17.387 


-27.265 


11. 134 


-66.637 


.587 


23.363 


-16.067 


-27.265 


11.398 


-66 . 90 1 


.641 


23.099 


-14. 669 


-27.265 


11. 666 


-67. 169 


.694 


22.831 


-13.133 


-27.265 


11.936 


-67.439 


.747 


22.561 


-11.617 


-27.265 


12.208 


-67.71 1 


.801 


22.289 


-9.951 


-27.263 


12.478 


-67.981 


.854 


22.019 


-8.134 


-27.265 


12.745 


-68. 248 


.908 


21. 752 


-6.311 


-27.265 


13.806 


-68.509 


.961 


21.491 


-4. 326 


-27.265 


13.258 


-68.761 


1.014 


21.239 


-2.224 


-27.265 


13.006 


-68.509 


.961 


21.491 


-4.326 


-27.265 


13.831 


-68.534 


.966 


21.466 


-4. 121 


-27.265 


13.057 


-68.560 


.972 


21.440 


-3.915 


-27.265 


13.082 


-68.585 


. 977 


21.415 


-3. 708 


-27.265 


13.108 


-68.611 


.982 


21.389 


-3.500 


-27.265 


13. 133 


-68.636 


.988 


21.364 


. -3.290 


-27.265 


13. 158 


-68.661 


.993 


21.339 


-3.079 


-27.265 


13. 183 


-68. 686 


.998 


21.314 


-2.867 


-27.265 


13.208 


-68.711 


1.004 


21.289 


-2.654 


-27.265 


13.233 


-68.736 


1.009 


21.264 


-2. 440 


-27.265 


13.258 


-68.761 


1.014 


21.239 


-2.224 


-27.265 


13.282 


-68.785 


1.020 


21.215 


-2.007 


-27.265 


13.307 


-68.810 


1.025 


21.190 


-1.789 


-27.265 


13.331 


-68.834 


1.030 


21. 166 


-1.570 


-27.265 


13.355 


-63. 858 


1.036 


21 . 142 


-1.349 
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TABLE A-III (CONT) 



BETA THETACRAY ) NORMAL S ALPHA 2 RHO 2 



- 27.265 


13.379 


- 68.882 


1.04 1 


21.118 


- 1. 127 


- 27.265 


13. 433 


- 63.906 


1.046 


21.094 


-.904 


- 27.265 


13.427 


- 68.930 


1.052 


21.070 


-.680 


- 27.265 


13.450 


- 63.953 


1.057 


21.047 


-. 455 


- 27.265 


13.474 


- 68.977 


1.062 


21.023 


-.223 


- 27.265 


13.450 


- 68.953 


1.057 


21.047 


-.455 


- 27.265 


13.453 


- 68.956 


1.058 


21.044 


-. 432 


- 27.265 


13. 455 


- 68.953 


1.058 


21.042 


-.409 


- 27.265 


13.457 


- 68.960 


1.059 


21.040 


-.337 


- 27.265 


13. 460 


- 68.963 


1.059 


21.037 


-.364 


- 27.265 


13.462 


- 68.965 


1.060 


21.035 


-.341 


- 27.265 


13.464 


- 63.967 


1.060 


21.033 


-.319 


- 27.265 


13.467 


- 68.970 


1.061 


21.030 


-.296 


- 27.265 


13.469 


- 68.972 


1.061 


21.028 


-.273 


- 27.265 


13.471 


- 68.974 


1.062 


21.026 


-.251 


- 27.265 


13.474 


- 68.977 


1.062 


21.023 


-.228 


- 27.265 


13.476 


- 68.979 


1. 063 


21.021 


-.205 


- 27.265 


13.478 


- 63.981 


1.063 


21.019 


-. 132 


- 27.265 


13.481 


- 68.984 


1.064 


21.016 


-. 160 


- 27.265 


13.483 


- 63.986 


1.065 


21.014 


-. 137 


- 27.265 


13.485 


- 68.988 


1.065 


21.012 


-. 1 14 


- 27.265 


13.488 


- 63.991 


1.066 


21.009 


-.091 


- 27.265 


13.490 


- 63.993 


1.066 


21.007 


-.069 


- 27.265 


13.492 


- 68.995 


1.067 


21.005 


-.046 


- 27.265 


13.495 


- 68.993 


1.067 


21.002 


-.023 


- 27.265 


13.492 


- 68.995 


1.067 


21.005 


-. 046 


- 27.265 


13.493 


- 68.996 


1.067 


21.004 


-.043 


- 27.265 


13.493 


- 68.996 


1.067 


21.004 


-.041 


- 27.265 


13.493 


- 68.996 


1.067 


21.004 


-.039 


- 27.265 


13.493 


- 68. 996 


1.067 


21.004 


-.037 


- 27.265 


13.494 


- 68.997 


1.067 


21. 003 


-.034 


- 27.265 


13.494 


- 68. 997 


1.067 


21.003 


-.032 


- 27.265 


13.494 


- 68.997 


1.067 


21.003 


-.030 


- 27.265 


13.494 


- 68.997 


1.067 


21.003 


-.027 


- 27.265 


13.494 


- 68.997 


1.067 


21.003 


-.025 


- 27.265 


13.495 


- 68.998 


1.067 


21.002 


-.023 


- 27.265 


13.495 


- 68.998 


1.067 


21.002 


-.021 


- 27.265 


13.495 


- 68.998 


1.067 


21.002 


-.018 


- 27.265 


13.495 


- 63.998 


1.067 


21.002 


-.016 


- 27.265 


13.496 


- 68.999 


1.067 


21.001 


-.014 


- 27.265 


13. 496 


- 68.999 


1.067 


21.001 


-.011 


- 27.265 


13.496 


- 68.999 


1.068 


21.001 


-.009 


- 27.265 


13.496 


- 68.999 


1.068 


21.001 


-.007 


- 27.265 


13.497 


- 69.000 


1.068 


21.000 


-.005 


- 27.265 


13.497 


- 69.000 


1.063 


21.000 


-.002 


- 27.265 


13.497 


- 69.000 


1.063 


21.000 


-.005 
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TABLE A-III (CONT) 



BETA 



- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 27.265 

- 34.365 

- 34.865 

- 34.865 

- 34.365 

- 34.865 

- 34 . S 65 

- 34.865 

- 34.865 

- 34.865 

- 34.865 

- 34.865 

- 34.365 

- 34.865 

- 34.365 

- 34.865 

- 34.865 

- 34.365 

- 34.865 

- 34.865 

- 34.865 

- 34.865 

- 34.865 

- 34.365 

- 34.365 

- 34.865 

- 34.865 



THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



13.497 


- 69.000 


1.068 


21.000 


-.004 


13.497 


- 69.000 


1.068 


21.080 


-.004 


13.497 


- 69.000 


1.068 


21.000 


-.004 


13.497 


- 69.000 


1.068 


21 . 800 


-. O 04 


13.497 


- 69.000 


1.068 


21.000 


-.003 


13.497 


- 69 . 0 O 0 


1.068 


21.000 


-.003 


13.497 


- 69.000 


1.063 


21.000 


-.003 


13.497 


- 69.000 


1.068 


21.000 


-.003 


13. 497 


- 69.000 


1.068 


21.000 


-. 0 O 3 


13. 497 


- 69.000 


1.068 


21.000 


-.002 


13.497 


- 69.000 


1.068 


21.000 


-.002 


13.497 


- 69.000 


1.068 


21.000 


-.002 


13.497 


- 69.000 


1.068 


21.000 


-.002 


13. 497 


- 69. 000 


1.068 


21.000 


-.001 


13.497 


- 69.000 


1.068 


21.000 


-.001 


13.497 


- 69.000 


1. 068 


21.000 


-.001 


13.497 


- 69.000 


1.068 


21.000 


-. 00 1 


13.497 


- 69.000 


1.068 


21.000 


-.000 


13.497 


- 69.000 


1.068 


21.000 


-.000 


6.562 


- 62.065 


0.000 


27.935 


- 34.365 


6.769 


- 62.272 


.060 


27.728 


- 34. 142 


6.989 


- 62.492 


. 120 


27.508 


- 33.363 


7.221 


- 62.724 


. 180 


27.276 


- 32.539 


7.467 


- 62.970 


.240 


27.030 


- 31 . 649 


7.728 


- 63.231 


.300 


26.769 


- 30.693 


8.004 


- 63.507 


.360 


26.493 


- 29. 661 


3.296 


- 63.799 


.420 


26.201 


- 23. 547 


3 . 606 


- 64 . 109 


.480 


25.391 


- 27.341 


8.935 


- 64.437 


.541 


25.563 


- 26.032 


9.282 


- 64.785 


.601 


25.215 


- 24.608 


9 • 648 


- 65. 151 


..661 


24.849 


- 23.054 


10.034 


- 65.537 


.721 


24.463 


- 21. 356 


10.439 


- 65.942 


.781 


24.053 


- 19.495 


10.361 


- 66 • 364 


.841 


23.636 


- 17. 452 


11.298 


- 66.801 


.901 


23. 199 


- 15.204 


11.747 


- 67.250 


.961 


22.750 


.- 12.727 


12.201 


- 67.704 


1.021 


22.296 


- 9.994 


12.652 


- 68. 155 


1.081 


21.845 


- 6.980 


13.089 


- 68.592 


1 . 141 


21.403 


- 3. 656 


12.652 


- 63. 155 


1.031 


21.843 


- 6.980 


12.696 


- 68. 199 


1.087 


21.301 


— 6 .662 


12. 741 


- 63.244 


1.093 


21. 756 


- 6.341 


12.785 


- 68.288 


1.099 


21.712 


- 6.016 


12.329 


- 68.332 


1 . 105 


21.668 


- 5.689 


12.373 


- 68.376 


1.111 


21.624 


- 5. 353 
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9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 



TABLE A-III (CONT) 



BETA 



-34.865 
-34.865 
-34.365 
-34.865 
-34.865 
-34.865 
-34.365 
-34.865 
-34.365 
-34.865 
-34.365 
-34.865 
-34.865 
-34.365 
-34.365 
-34.365 
-34.865 
-34.865 
-34.365 
-34.865 
-34.865 
-34.365 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.365 
-34.365 
-34.365 
-34.365 
-34. 365 
-34.365 
-34.865 
-34.865 
-34.365 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.865 
-34.365 
-34.865 
-34.365 
-34.865 



THETA(RAY) NORMAL S ALPHA2 RHO 2 



12.916 


-63.419 


1.117 


21.531 


-5.024 


12.960 


-63 • 463 


1.123 


21.537 


-4.637 


13. O03 


-68 . 506 


1 . 129 


21.494 


-4.347 


13.846 


-63.549 


1 . 135 


21.451 


-4.O03 


13. 089 


-68.592 


1. 141 


21.403 


-3.656 


13. 131 


-63 .634 


1.147 


21 . 366 


-3.306 


13.173 


-68.676 


1. 153 


21.324 


-2.952 


13.215 


—63. 7 1 3 


1.159 


21.232 


-2. 595 


13.256 


-63.759 


1 . 165 


21.241 


-2.235 


13.297 


~&8 • 300 


1. 171 


21.200 


-1.371 


13.338 


-63.841 


1 . 177 


21. 159 


-1.504 


13.378 


-68.331 


1. 183 


21.119 


-1. 133 


13.418 


-63.921 


1. 139 


21.079 


-.759 


13.458 


-63.961 


1 . 195 


21.039 


-.331 


13.413 


-63.921 


1 . 189 


21.079 


-.759 


13.422 


-68.925 


1. 190 


21 . 075 


-.721 


13.426 


-63.929 


1 . 190 


21.071 


-.634 


13.430 


-63.933 


1.191 


21 . 067 


- . 646 


13. 434 


-63.937 


1. 192 


21 . 063 


-.603 


13.433 


-63.941 


1 . 192 


21.059 


-.570 


13.442 


-63.945 


1.193 


21.055 


-.533 


13.446 


-63.949 


1. 193 


21.051 


-.495 


13.450 


-68.953 


1.194 


21.047 


-.457 


13.454 


-68.957 


1 . 195 


21.843 


-.419 


13.453 


-68.961 


1. 195 


21.039 


-.331 


13.462 


-63. 965 


1.196 


21.035 


-. 343 


13.466 


-63. 969 


1.196 


21.031 


-. 305 


13.470 


-63.973 


1. 197 


21.027 


-. 267 


13.474 


-68.977 


1.198 


21.023 


-. 229 


13.473 


-63.931 


1. 198 


21.019 


-. 191 


13. 481 


-63.984 


1 . 199 


21.016 


-. 153 


13.435 


-68.938 


1 . 199 


21.012 


-. 1 15 


13.439 


-63. 992 


1.200 


21.003 


-.077 


13.493 


-68.996 


1.201 


21.004 


-.033 


13.439 


-63.992 


1.200 


21.008 


-. 077 


13.490 


-68.993 


1.200 


21.007 


-.073 


13.490 


-63.993 


1.2O0 


21.007 


-.069 


13.490 


-63.993 


1.200 


21.007 


-.065* 


13.491 


-63.994 


1.200 


21.006 ’ 


-.061 


13.491 


-68.994 


1.200 


21.006 


-. 057 


13.492 


-63.995 


1.200 


21.005 


-.054 


13.492 


-68.995 


1.200 


21.0O5 


-.050 


13.492 


-63.995 


1.201 


21.005 


-.048 


13.493 


-63. 996 


1.201 


21.004 


-. 042 


13.493 


-68.996 


1.201 


21 . 004 


-.038 


13.494 


-68.997 


1.201 


21.003 


-.034 



79 



9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 



TABLE A-III (CONT) 



BETA 


THETA < RAY > 


NORMAL 


S 


ALPHA 2 


RHO 2 


- 34 . 365 


13.494 


- 63. 997 


1.201 


21.003 


-.031 


- 34.865 


13.494 


- 63.997 


1.201 


21.003 


-.027 


- 34.865 


13.495 


- 63.998 


1.201 


21.002 


-. 023 


- 34.365 


13.495 


- 63.998 


1.201 


21.002 


-.019 


- 34.365 


13. 495 


- 63.998 


1. 201 


21.002 


-.015 


- 34.865 


13. 496 


- 63.999 


1. 201 


21.001 


-.011 


- 34.363 


13.496 


- 63.999 


1.201 


21.001 


-.003 


- 34.865 


13.497 


- 69.000 


1.201 


21. 000 


-.004 


- 34.865 


13. 496 


- 63.999 


1. 201 


21.001 


-. 003 


- 34.865 


13.496 


- 68.999 


1.201 


21.001 


-.007 


- 34.865 


13.496 


- 63.999 


1.201 


21. 001 


-.007 


- 34.865 


13.496 


- 63.999 


1.201 


21.001 


-.007 


- 34.865 


13.496 


- 63.999 


1.201 


21.001 


-.006 


- 34.365 


13.496 


- 68.999 


1.201 


21.001 


-.006 


- 34.865 


13.496 


- 68.999 


1.201 


21.001 


-.005 


- 34.865 


13.497 


- 68.999 


1.201 


21. 001 


-.005 


- 34.865 


13. 497 


- 69. 000 


1.201 


21. 000 


-.005 


- 34.865 


13.497 


- 69.000 


1.201 


21.000 


-.004 


- 34.365 


13.497 


- 69.000 


1.201 


21.000 


-.004 


- 34.365 


13.497 


- 69. 000 


1. 201 


21.000 


-.003 


- 34.865 » 


13.497 


- 69.000 


1.201 


21. 000 


-.003 


- 34.365 


13.497 


- 69.000 


1.201 


21.000 


-.003 


- 34.865 


13.497 


- 69.000 


1.201 


21. 000 


-.002 


- 34.865 


13.497 


- 69.000 


1.201 


21.000 


-.002 


- 34.865 


13.497 


- 69.000 


1.201 


21. 000 


-.002 


- 34.365 


13. 497 


- 69.000 


1.201 


21. 000 


-.001 


- 34.865 


13.497 


- 69.000 


1.201 


21.000 


-.001 


- 34.865 


13. 497 


- 69.000 


1.201 


21.000 


-.000 


- 44. 1 13 


3 . 740 


- 59.243 


0.000 


30.757 


- 44 . 118 


- 44 . 118 


3.899 


- 59.402 


.067 


30.598 


- 43. 620 


- 44. 118 


4.071 


- 59.574 


. 133 


30.426 


- 43. 076 


- 44 . 1 18 


4.259 


- 59.762 


.200 


30.233 


- 42.432 


- 44 . 113 


4.463 


- 59.966 


.267 


30.034 


- 41.329 


- 44 . 118 


4,683 


- 60. 191 


.334 


29.809 


- 41. 109 


- 44 . 118 


4.935 


- 60. 438 


.400 


29.562 


- 40.310 


- 44 . 113 


5.208 


- 60. 711 


.467 


29.239 


-. 39.420 


- 44. 118 


5.511 


- 61.014 


.534 


28.936 


- 33.423 


- 44 . 118 


5.843 


- 61.351 


.601 


28.649 


- 37.298 


- 44. 118 


6.226 


- 61.729 


.667 


23.271 


- 36.021 


- 44 . 118 


6 . 650 


- 62. 153 


. 734 


27.347 


- 34.559 


- 44 . 118 


7 . 123 


- 62.631 


.301 


27. 369 


- 32.373 


- 44 . 118 


7.669 


- 63. 172 


.863 


26. 328 


- 30.909 


- 44 . 113 


8.283 


- 63. 786 


.934 


26.214 


- 28.600 


- 44 . 1 18 


8 . 978 


- 64.431 


1.001 


25.519 


- 25.356 


- 44 . 113 


9 . 763 


- 65.266 


1.063 


24.734 


- 22.556 
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10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 
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10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 



TABLE A-III (CONT) 



BETA THETfKRBY) NORMAL S BLPHB2 RHO 2 



-44. 1 18 


10.633 


-66. 141 


1.134 


23.859 


-18.544 


-44. 118 


11.590 


-67.092 


1.201 


22.908 


-13.613 


-44. 113 


12.574 


-68.077 


1.268 


21.923 


-7.527 


-44. 1 13 


11.590 


-67.092 


1.201 


22. 908 


-13.613 


-44. 118 


11.688 


-67. 191 


1.203 


22. 809 


-13.066 


-44. 118 


11.786 


-67.289 


1.215 


22. 711 


-12.501 


-44. 1 18 


11.884 


-67.387 


1.221 


22.613 


-11.925 


-44. 118 


11.983 


-67 • 486 


1.223 


22.514 


-11 . 336 


-44. 113 


12.082 


-67.585 


1.235 


22.415 


-10.735 


-44. 118 


12. 131 


-67.684 


1.241 


22.316 


-10. 120 


-44. 113 


12.279 


-67.782 


1.248 


22.218 


-9.492 


-44. 118 


12. 378 


-67.881 


1.255 


22.119 


-8.851 


-44. 118 


12.476 


-67.979 


1.261 


22.021 


-8. 196 


-44. 118 


12.574 


-68.077 


1. 268 


21 . 923 


-7.527 


-44. 118 


12.671 


-68. 174 


1.275 


21 . 326 


-6 . 843 


-44. 1 18 


12. 767 


-68. 270 


1.231 


21.730 


-6. 145 


-44. 113 


12.863 


-68.366 


1.288 


21.634 


-5.431 


-44. 118 


12.958 


-68.461 


1.295 


21.539 


-4. 703 


-44. 118 


13.051 


-68.554 


1.301 


21.446 


-3.959 


-44. 113 


13. 144 


-68.647 


1.308 


21.353 


-3. 199 


-44. 118 


13.235 


-63.738 


1.315 


21.262 


-2.424 


-44. 118 


13.324 


-63.827 


1.321 


21. 173 


-1.632 


-44. 118 


13.411 


-68.914 


1.328 


21.086 


-.324 


-44. 118 


13.324 


-68.827 


1.321 


21. 173 


-1.632 


-44. 118 


13.333 


-63. 836 


1.322 


21. 164 


-1.552 


-44. 118 


13.342 


-68.845 


1.323 


21 .155 


-1.472 


-44. 118 


13.350 


-68.353 


1.323 


21. 147 


-1.392 


-44. 118 


13.359 


-63.862 


1.324 


21 . 138 


-1.311 


-44. 118 


13. 368 


-68.371 


1.325 


21 . 129 


-1.230 


-44. 118 


13.377 


-68.880 


1.325 


21. 120 


-1. 149 


-44. 118 


13.385 


-68. 388 


1.326 


21.112 


-1. 063 


-44. 118 


13.394 


-63.397 


1.327 


21. 103 


-.987 


-44. 118 


13. 403 


-68.906 


1.327 


21 . 094 


-.906 


-44. 118 


13.411 


-68. 914 


1.328 


21.086 


-.824 


-44. 118 


13.420 


-63.923 


1.329 


21.077 


-. 743 


-44. 118 


13.429 


-68. 932 


1.329 


21.063 


-. 661 


-44. 118 


13. 437 


-68.940 


1.330 


21.060 


-. 579 


-44. 118 


13. 446 


-63.949 


1.331 


21.051 


-.497 


-44. 118 


13.455 


-68.957 


1.331 


21. 043 


-.414 


-44. 118 


13. 463 


-68. 966 


1. 332 


21.034 


-. 332 


-44. 118 


13.472 


-68.975 


1.333 


21.025 


-.249 


- 44 . 118 


13. 480 


-68. 983 


1.333 


21.017 


-. 166 


-44. 118 


13,489 


-63.992 


1.334 


21. 008 


- • 083 


-44. 118 


13. 480 


-68.983 


1. 333 


21.017 


-.166 


-44. 118 


13.481 


-68.984 


1.333 


21.016 


-. 153 


-44. 118 


13. 482 


-68.985 


1.333 


21.015 


-. 150 
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TABLE A-III (CONT) 



BETA 


THETA< RAY ) 


NORMAL 


S 


ALPHA2 


RHO 2 


-44. 1 13 


13.483 


-68. 986 


1.334 


21.014 


-. 141 


-44. 113 


13. 483 


-68. 986 


1.334 


21.014 


-. 133 


-44. 113 


13. 484 


-63.987 


1 . 334 


21.313 


-. 125 


-44. 118 


13.485 


-68.988 


1.334 


21.012 


-.116 


-44. 118 


13.486 


-68.989 


1.334 


21.311 


-. 108 


-44. 118 


13.48? 


-68.990 


1.334 


21.013 


-. 100 


-44. 118 


13.438 


-68.991 


1.334 


21. 009 


-.091 


-44. 1 13 


13. 489 


-68.992 


1.334 


21. 003 


-.083 


-44. 1 13 


13. 489 


-63. 992 


1.334 


21.003 


-.375 


-44. 1 18 


13. 493 


-68. 993 


1.334 


21.00? 


-.06? 


-44. 118 


13. 491 


-68. 994 


1 . 334 


21 . 006 


-.053 


-44. 118 


13.492 


-68.995 


1.334 


21.335 


-.050 


-44. 118 


13.493 


-68.996 


1 . 334 


21.004 


-.042 


-44. 118 


13.494 


-68.997 


1.334 


21.003 


-.033 


-44. 118 


13.495 


-68.997 


1.334 


21.003 


-.025 


-44. 113 


13. 495 


-68.998 


1. 335 


21.002 


-.017 


-44. 118 


13.496 


-68.999 


1. 335 


21 . 001 


-.008 


-44. 113 


13. 496 


-68.999 


1.335 


21.001 


-.003 


-44. 1 18 


13.496 


-63.999 


1. 335 


21.001 


-.007 


-44. 1 18 


13. 496 


-68.999 


1.335 


21 . 001 


-.007 


-44. 1 13 


13.496 


-68. 999 


1.335 


21.301 


-.006 


-44. 113 


13. 497 


-68.999 


1.335 


21. 001 


-.005 


-44. 113 


13.497 


-69. 000 


1.335 


21.000 


-. 004 


-44. 118 


13.497 


-69.000 


1.335 


21.000 


-.003 


-44. 1 18 


13. 497 


-69.000 


1.335 


21.000 


-.032 


-44. 113 


13. 497 


-69.000 


1. 335 


21.003 


-.002 


-44. 118 


13. 497 


-69. 000 


1.335 


21.000 


-.001 
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TABLE A-IV 



SECOND SURFACE COORDINATE (X,Y) VALUES, S, ALPHA2 AND 
RH02 FOR THE FAMILY OF SURFACES IN FIGURES 17 AND 18. 
THE COLUMN LABELED BEGIN RAY CORRESPONDS TO THE FAMILY 
MEMBER. 



Beqi n 

RAY 


Next 

RAY 


Xsurf 
< next ) 


Ysurf 
(next ) 


S 

(next ) 


ft 1 pha2 
(next ) 


RHO 2 
( next > 


1 


1 


.362 


. 000 


. 133 


21.000 


-.000 


1 


2 


.649 


. 110 


. 133 


21.201 


-1.880 


1 


3 


.933 


.221 


. 132 


21.466 


-4. 122 


1 


4 


1.220 


.333 


. 130 


21.324 


-6 . 33 1 


1 


5 


1.504 


. 447 


. 125 


22.321 


-10. 147 


1 


6 


1.736 


.563 


. 118 


23. 024 


-14.262 


1 


7 


2.067 


.682 


. 107 


24.043 


-19.425 


1 


8 


2.344 


. 305 


.090 


25.533 


-25. 934 


l 


9 


2.616 


. 936 


.066 


27.707 


-34.070 


1 


10 


2.882 


1.076 


.030 


30.638 


-43.901 


2 


2 


.724 


.000 


.267 


21.201 


-.000 


2 


3 


1.010 


.111 


.266 


21.223 


-2. 125 


2 


4 


1.296 


.222 


.265 


21. 538 


-4.693 


2 


5 


1. 581 


.334 


.262 


21. 973 


-7.370 


2 


6 


1.365 


. 449 


.256 


22.603 


-11.363 


2 


7 


2. 146 


.366 


.248 


23.542 


-16. 978 


2 


8 


2.425 


.637 


.234 


24.971 


-23.577 


2 


9 


2.699 


.315 


.212 


27. 147 


-32. 074 


2 


10 


2.967 


.953 


. 179 


30.300 


-42.677 


3 


3 


1.086 


.000 


.400 


21.228 


-.000 


3 


4 


1.372 


.111 


.399 


21. 262 


-2.420 


3 


5 


1.653 


.222 


.393 


21.633 


-5.420 


3 


6 


1. 943 


.335 


.394 


22. 180 


-9.251 


3 


7 


2.226 


.450 


.383 


23.021 


-14. 243 


3 


8 


2.506 


.570 


.377 


24.354 


-20.865 


3 


9 


2. 782 


.695 


.358 


26.502 


-29. 695 


3 


10 


3.052 


.829 


.329 


29.326 


-41. 164 


4 


4 


1.449 


.000 


.534 


21.262 


-.000 


4 


5 


1.734 


.111 


.532 


21.307 


-2.310 


4 


6 


2.020 


.223 


.531 


21. 766 


-6.414 


4 


7 


2.304 


.336 


.527 


22.493 


-11.203 


4 


3 


2.586 


.453 


.518 


23.698 


-17.757 


4 


9 


2.364 


.575 


.504 


25.766 


-26.849 


4 


10 


3. 136 


. 706 


.478 


29.242 


-39.268 


5 


5 


1.311 


.000 


.667 


21.307 


-.000 


5 


6 


2.096 


.111 


. 666 


21. 371 


-3. 349 


5 


7 


2.382 


.223 


.664 


21.970 


-7.349 


5 


8 


2.665 


.337 


.658 


23.011 


-14. 189 


5 


9 


2.946 


.457 


.647 


24.932 


-23.412 


5 


10 


3.220 


.584 


.626 


28.510 


-36.332 


6 


6 


2.173 


.000 


.301 


21.371 


-.000 
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6 

6 

6 

6 

7 

7 

7 

7 

3 

3 

8 

9 

9 

10 



TABLE A- IV CCONT) 



Next 

Surf 


Xsurf 
< next > 


Vsurf 
<next > 


S 

< next ) 


R1pha2 
(next ) 


RHO 2 
< next ) 


7 


2. 438 


. 112 


.799 


21.469 


-4. 143 


3 


2. 743 


.224 


.796 


22.313 


-10. 099 


9 


3.026 


.340 


.789 


24.002 


-19.227 


10 


3.303 


.463 


.773 


27.578 


-33.615 


7 


2.533 


.000 


.934 


21 . 469 


-.000 


3 


2.320 


. 112 


.932 


21.634 


-5.429 


9 


3. 103 


.225 


.928 


22. 996 


-14. 107 


10 


3.385 


. 344 


.917 


26.373 


-29.225 


3 


2.397 


.000 


1.063 


21.634 


-.000 


9 


3. 182 


. 113 


1.064 


21.971 


-7.333 


10 


3.463 


.227 


1. 039 


24.343 


-23.029 


9 


3.239 


.000 


1.201 


21.971 


-.000 


10 


3. 343 


. 114 


1. 196 


22.986 


-14.031 


10 


3.622 


.000 


1.335 


22.986 


-.001 
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TABLE A-V 



COMPARISON OF THE MAXIMUM ALLOWED' LENGTH OF THE RAY IN 

THE LENS QA AND THE ACTUAL VALUE USED S„„ , FOR EACH 

MAX 

SURFACE IN FIGURES 17 AND 18. ALPHA2 AND RH02 ARE THE 
VALUES AT S^. 



RAY 


QA 


Sraax 


A 1 pha 2 


RHO 2 


1 


. 133 


. 133 


21.000 


-.000 


2 


.267 


.267 


21.201 


-.000 


3 


.400 


.400 


21.228 


-.000 


4 


.534 


.534 


21.262 


-.000 


3 


.667 


.667 


21.307 


-.000 


6 


.301 


.301 


21.371 


-.000 


7 


.934 


. 934 


21.469 


-.000 


a 


1.063 


1.063 


21.634 


-.000 


9 


1.201 


1.201 


21.971 


-.000 


10 


1.335 


1.333 


22.986 


-.001 
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TABLE A-VI 





CALCULATED 
THE DESIGN 
OF SURFACE 


VALUES 

CHART 

NUMBER 


OF 

IN 

1 


S AND ALPHA2 
FIGURE 19 FOR 
in FIGURE 20. 


USED 

THE 


TO CONSTRUCT 
FINAL DESIGN 


RAY 




BETA 


THETA ( RAY ) 


NORMAL 




S 




ALPHA 2 


RHO 2 


1 




-1.697 


13.317 




-63. 320 




0.000 




21. 180 


-1.697 


1 




-1.697 


13. 326 




-63. 829 




.007 




21. 171 


-1.614 


1 




-1.697 


13.335 




-63.333 




.013 




21 . 162 


-1. 530 


1 




-1.697 


13.344 




-68.847 




.020 




21. 153 


-1.447 


1 




-1.697 


13. 354 




-68 • 856 




.027 




21. 144 


-1 . 363 


1 




-1.697 


13. 363 




-68. 366 




.033 




21. 134 


-1.279 


1 




-1.697 


13.372 




-68.873 




.040 




21. 125 


-1. 195 


1 




-1.697 


13.331 




-63.384 




.047 




21.116 


-1.111 


1 




-1.697 


13.390 




-63.393 




.053 




21. 107 


-1.027 


1 




-1.697 


13.399 




-63.902 




.060 




21.093 


-.942 


1 




-1.697 


13.408 




-68.911 




.067 




21.039 


-. 357 


1 




-1.697 


13.417 




-68.920 




.073 




21.030 


-. 772 


1 




-1.697 


13.426 




-63.929 




.080 




21.071 


-.637 


1 




-1.697 


13.435 




-68.938 




.037 




21.062 


-.602 


1 




-1.697 


13.444 




-63.947 




.093 




21.053 


-.517 


1 




-1.697 


13.453 




-68.956 




. 100 




21.044 


-.431 


1 




-1.697 


13.462 




-68.965 




. 107 




21.035 


-.345 


1 




-1.697 


13.471 




-68.974 




. 113 




21.026 


-. 259 


1 




-1.697 


13.479 




-68.982 




. 120 




21.013 


-. 173 


1 




-1.697 


13.483 




-63. 991 




. 127 




21.009 


-. 037 


1 




-1.697 


13.479 




-63.932 




. 120 




21.013 


-.173 


1 




-1.697 


13.430 




-63.933 




. 121 




21.017 


-. 164 


1 




-1.697 


13.431 




-63.984 




. 121 




21.016 


-. 156 


1 




-1.697 


13.432 




-63. 935 




. 122 




21.015 


-. 147 


1 




-1.697 


13.483 




-68.986 




. 123 




21.014 


-. 138 


1 




-1.697 


13.484 




-63.937 




. 123 




21.013 


-. 130 


1 




-1.697 


13. 435 




-68.983 




. 124 




21.012 


-. 121 


1 




-1.697 


13.436 




-68.989 




. 125 




21.011 


-. 112 


1 




-1.697 


13.486 




-68.939 




. 125 




21.011 


-. 104 


1 




-1.697 


13.437 




-63. 990 




. 126 




21.010 


-.095 


1 




-1.697 


13.433 




-68. 991 




. 127 




21.009 


-.037 


1 




-1.697 


13.489 




-63. 992 




. 127 




21.008 


-.073 


1 




-1.697 


13.490 




-68.993 




. 128 




21 . 007 


-. 069 


1 




-1.697 


13.491 




-63.994 




. 129 




21.006 


-.061 


1 




-1.697 


13.492 




-68.995 




. 129 




21.005 


-.052 


1 




-1.697 


13. 493 




-63.996 




. 130 




21.004 


-.043 


1 




-1.697 


13.494 




-63.996 




. 131 




21.004 


-.035 


1 




-1.697 


13. 494 




-63.997 




. 131 




21.003 


* -.026 


1 




-1.697 


13. 495 




-63.993 




. 132 




21.002 


-.017 


1 




-1.697 


13.496 




-63.999 




. 133 




21.001 


-.009 


1 




-1.697 


13.495 




-68.998 




. 132 




21.002 


-.017 


1 




-1.697 


13.495 




-68.993 




. 132 




21.002 


-.016 


1 




-1.697 


13. 495 




-63.993 




. 132 




21.002 


-.016 


1 




-1.697 


13. 496 




-63.999 




. 132 




21.001 


-.015 


1 




-1.697 


13.496 




-63.999 




. 132 




21.001 


-.014 


1 




-1.697 


13.496 




-63.999 




. 132 




21.001 


-.013 
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TABLE A -VI (CONT) 



RflY 


BETA 


THETACRAY ) 


NORMAL 


S 


ALPHA 2 


RHO 2 


1 


-1.697 


13. 496 


-63. 999 


. 133 


21.001 


-.012 


1 


-1.697 


13.496 


-63.999 


. 133 


21.001 


-.Oil 


1 


-1.697 


13.496 


-63. 999 


. 133 


21.001 


-.010 


l 


-1.697 


13.496 


-63.999 


. 133 


21.001 


-.010 


1 


-1.697 


13.496 


-63.999 


. 133 


21.001 


-.009 


1 


-1.697 


13.496 


-68.999 


. 133 


. 21.001 


-.003 


1 


-1.697 


13.496 


-68.999 


. 133 


21.001 


-.007 


1 


-1 . 697 


13.496 


-68.999 


. 133 


21.001 


-.006 


1 


-1.697 


13. 497 


-68. 999 


. 133 


21 . 001 


-.005 


1 


-1.697 


13. 497 


-69. 000 


. 133 


21.000 


-.004 


1 


-1. 697 


13. 497 


-69. 000 


. 133 


21.000 


-.003 


1 


-1.697 


13. 497 


-69. 000 


. 133 


21.000 


-.003 


1 


-1.697 


13.497 


-69. 000 


. 133 


21. 000 


-.002 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.002 


l 


-1.697 


13. 497 


-69.000 


. 133 


21.000 


-.002 


1 


-1.697 


13.497 


-69. 000 


. 133 


21.000 


-.002 


1 


-1. 697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1. 697 


13. 497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13. 497 


-69. 000 


. 133 


21. 000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.001 


1 


-1.697 


13. 497 


-69.000 


. 133 


21.000 


-. 001 


1 


-1.697 


13. 497 


-69.000 


. 133 


21. 000 


-.001 


1 


-1.697 


13.497 


-69.000 


. 133 


21. 000 


-. 001 


1 


-1.697 


13. 497 


-69.000 


. 133 


21. 000 


-.001 


1 


-1. 697 


13. 497 


-69.000 


. 133 


21.000 


-.001 


1 


-1. 697 


13. 497 


-69.000 


. 133 


21.000 


-.000 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.000 


1 


-1.697 


13.497 


-69. 000 


. 133 


21 . 000 


-.000 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.000 


1 


-1.697 


13.497 


-69.000 


. 133 


21.000 


-.000 


2 


-2.373 


13.241 


-68.743 


0. 000 


21.237 


-2.373 


2 


-2.373 


13.234 


-68.737 


.009 


21. 243 


-2.253 


2 


-2.373 


13.267 


-68.770 


.018 


21.230 


-2. 142 


2 


-2.373 


13.230 


-68.783 


.027 


21.217 


-2.026 


2 


-2.373 


13.293 


-63.796 


. 036 


21.204 


-1.910 


2 


-2.373 


13.306 


-68.809 


.043 


21. 191 


-1. 793 


2 


-2.373 


13.319 


-68.822 


.034 


21. 178 


-1.676 


2 


-2.373 


13. 332 


-68. 833 


.064 


21 . 165 


-1.359 


2 


-2.373 


13.343 


-68.843 


.073 


21. 132 


-1.441 


2 


-2.373 


13.338 


-63. 861 


.082 


21. 139 


-1.323 


2 


-2.373 


13.371 


-68.874 


.091 


21. 126 


-1.204 
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2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 



TABLE A-VI (CONT) 



BET A 



-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-2.373 

-3.038 

-3.038 

-3.383 



THETA < RAY > NORMAL S ALPHA2 



13.384 
13.396 
13. 409 
13.422 
13.434 
13.447 
13.460 
13.472 
13.485 
13.497 

13.485 

13.486 

13.487 

13.488 

13.490 

13.491 

13. 492 

13.493 

13.495 

13.496 

13.497 
13.496 
13.496 
13.496 
13.496 
13.496 

13.496 

13.497 
13.497 
13.497 
13.497 
13. 497 
13.497 
13. 497 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 

13. 157 
13. 175 
13. 192 



-63.337 
-68.899 
-69. 912 
-68.925 
-68.937 
-68.950 
-68.963 
-63.975 
-69. 988 
-69.000 
-68. 988 
-68.989 
-68.990 
-69.991 
-68. 993 
-68.994 
-68.995 
-68 . 996 
-63.998 
-68.999 
-69.000 
-69.999 
-68.999 
-68.999 
-63.999 
-68.999 
-68.999 
-69. 000 
-69.000 
-69.000 
-69.000 
-69.033 
-69.000 
-69.000 
-69.000 
-69.000 
-69.000 
-69.003 
-69.000 
-69.000 
-69.000 
-69.000 

-68.660 

-63.678 

-68.695 



. 100 
. 109 
. 118 
. 127 
. 136 
. 145 
. 154 
. 163 
. 172 
. 182 
.172 
. 173 
. 174 
. 175 
. 176 
. 177 
. 178 
. 179 
. 130 
. 131 
. 132 
. 181 
. 181 
. 181 
. 131 
. 131 
. 181 
. 181 
. 131 
. 131 
. 181 
. 132 
. 131 
. 131 
. 131 
. 131 
. 131 
. 131 
. 181 
. 181 
. 182 
. 132 

0.000 

.011 

.023 



21.113 
21. 101 
21.038 
21.075 
21.063 
21.053 
21.037 
21.025 
21.012 

21.003 
21.012 
21.011 
21.013 
21.309 
21.007 
21.036 
21.005 

21.004 
21.032 
21.001 
21.000 
21.001 
21.001 
21.001 
21.001 
21.001 
21.001 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 
21.000 

21.340 

21.322 

21.305 



RHO 2 



-1.085 
- . 966 
-.347. 
-.727 
- . 606 
-.486 
-.365 
-.244 
-. 122 
-. 000 
-. 122 
-. 110 
-.098 
-.035 
-.073 
-.061 
-.049 
-.037 
-.024 
-.012 
-.000 
-.012 
-.011 
-.010 
-.009 
-.007 
-.006 
-. 005 
-.004 
-.002 
-.001 
-.000 
-.001 
-.001 
-.001 
-.001 
-.001 
-.001 
-.000 
-.000 
-.000 
-.000 

-3.038 

-2.939 

-2. 790 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 



TABLE A-VI (CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 3.088 


13.210 


- 68. 713 


.034 


21.287 


- 2.640 


- 3.088 


13.227 


- 63.730 


.046 


21.270 


- 2.490 


- 3. 088 


13.244 


- 68.747 


.057 


21.253 


- 2.339 


- 3.088 


13.262 


- 68.765 


.069 


21.235 


- 2. 137 


- 3. 088 


13.279 


- 68. 782 


.080 


21.218 


- 2.035 


- 3.088 


13.296 


- 68.799 


.092 


21.201 


- 1 . 832 


- 3.088 


13.313 


- 68.316 


. 103 


21. 184 


- 1.723 


- 3.088 


13.330 


- 68.833 


. 115 


21. 167 


- 1.574 


- 3. 088 


13.347 


- 68.850 


. 126 


21.150 


- 1.420 


- 3.088 


13.364 


- 68.867 


. 138 


21. 133 


- 1.264 


- 3.088 


13.381 


- 68.834 


.149 


21.116 


- 1 . 103 


- 3.088 


13.398 


- 68.901 


. 161 


21.099 


-.952 


- 3.088 


13.415 


- 68.913 


. 172 


21.082 


-.795 


- 3.083 


13.431 


- 68.934 


. 134 


21.066 


-.637 


- 3.083 


13.448 


- 68.951 


. 195 


21.049 


-.479 


- 3.088 


13. 464 


- 63.967 


.207 


21.033 


-.320 


- 3.088 


13.481 


- 63. 984 


.218 


21.016 


-. 160 


- 3.088 


13.497 


- 69.000 


.230 


21.000 


-. 000 


- 3.088 


13.481 


- 63.984 


.218 


21.016 


-.160 


- 3.088 


13.482 


- 63.985 


.219 


21.015 


-. 144 


- 3.038 


13.484 


- 63.987 


.220 


21.013 


-. 128 


- 3.088 


13. 486 


- 63. 989 


.222 


21.011 


-.112 


- 3.088 


13.487 


- 68.990 


.223 


21.010 


-.096 


- 3.088 


13.489 


- 68.992 


.224 


21.008 


-.080 


- 3.088 


13.491 


- 68.993 


.225 


21.007 


-.064 


- 3.088 


13.492 


- 63.995 


.226 


21.005 


-.048 


- 3.083 


13.494 


- 63.997 


.227 


21 . 003 


-.032 


- 3.088 


13.495 


- 68.998 


.228 


21.002 


-.016 


- 3.088 


13.495 


- 68. 998 


,228 


21.002 


-.016 


- 3.088 


13.496 


- 68.999 


.229 


21.001 


-.014 


- 3.088 


13.496 


- 68.999 


.229 


21.001 


-.013 


- 3.088 


13.496 


- 68. 999 


.229 


21.001 


-.011 


- 3.088 


13.496 


- 68.999 


.229 


21.001 


-.010 


- 3.088 


13.496 


- 68.999 


.229 


21.001 


-.008 


- 3.088 


13.496 


- 68.999 


.229 


21.001 


-.006 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-. 005 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


. -.003 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-. 002 


- 3.083 


13.497 


- 69.000 


.230 


21.000 


-.000 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-.002 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-. 001 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-.001 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-.001 


- 3.088 


13.497 


- 69.000 


.229 


21.000 


-.001 


- 3.088 


13.497 


- 69.000 


.230 


21.000 


-.001 


- 3.088 


13.497 


- 69.000 


.230 


21.000 


-.001 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 



TABLE A-VI tCONT) 



BETA 



- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.038 

- 3.088 

- 3.088 

- 3.088 

- 3.088 

- 3.083 

- 3.345 
- 3. 845 
- 3.345 
- 3.345 
- 3. 845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.345 
- 3.845 
- 3.845 
- 3.845 
- 3. 845 
- 3.345 
- 3.345 
- 3.845 
- 3. 845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 
- 3.845 



THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



13 . 49 ? 


- 69.000 


.230 


21.000 


-.000 


13.497 


- 69.000 


.230 


21.000 


- . 000 


13 . 49 ? 


- 69.000 


.230 


21.000 


-. 000 


13.497 


- 69.000 


.230 


21.000 


-. 000 


13.497 


- 69.000 


.230 


21.000 


-.000 


13.497 


- 69.000 


.230 


21.000 


-.000 


13.497 


- 69.000 


. 230 


21.000 


-.000 


13.497 


- 69.000 


.230 


21.000 


-.000 


13 . 49 ? 


- 69.000 


.230 


21.000 


-. 000 


13.497 


- 69.000 


.230 


21.000 


-.000 


13. 497 


- 69. 000 


.230 


21. 000 


-.000 


13 . 49 ? 


- 69.000 


. 230 


21.000 


-. 000 


13.497 


- 69.000 


. 230 


21.000 


-. 000 


13 . 49 ? 


- 69.000 


.230 


21.000 


-.000 


13.065 


- 68.568 


0.000 


21.432 


- 3.845 


13.088 


- 68.591 


.014 


21.409 


- 3. 662 


13 . 110 


- 68.613 


.028 


21. 337 


- 3.473 


13. 133 


- 68.636 


.042 


21.364 


- 3.293 


13.155 


- 68 • 658 


.056 


21.342 


- 3. 107 


13. 177 


- 68.630 


.069 


21.320 


- 2.920 


13. 199 


- 68.702 


.083 


21. 298 


- 2.732 


13.221 


- 63.724 


. 09 ? 


21.276 


- 2. 543 


13.243 


- 68 • 746 


.111 


21.254 


- 2. 353 


13.265 


- 68.768 


. 125 


21.232 


- 2. 162 


13.236 


- 68.789 


. 139 


21.211 


- 1.970 


13.308 


- 68.811 


. 153 


21. 139 


— 1.773 


13.329 


- 68.332 


. 16 ? 


21.163 


- 1.534 


13.351 


- 68.854 


. 180 


21. 146 


- 1.389 


13.372 


- 68.375 


. 194 


21. 125 


- 1. 194 


13.393 


- 68.896 


.208 


21. 104 


-.997 


13.414 


- 68 .917 


.222 


21.083 


-.300 


13. 435 


- 68.938 


.236 


21.062 


-.601 


13.456 


- 68.959 


.250 


21. 041 


-.402 


13.476 


- 68.979 


.264 


21.021 


-.201 


13.476 


- 68.979 


.264 


21.021 


-.201 


13.479 


- 68.982 


.265 


21.013 


. -.131 


13.481 


- 63.934 


.267 


21.016 


-. 161 


13. 483 


- 68.986 


.268 


21.014 


-. 141 


13.485 


- 63.938 


.269 


21. 012 


-. 121 


13.487 


- 63.990 


.271 


21.010 


-. 101 


13.489 


- 63.992 


.272 


21.008 


-.081 


13. 491 


- 68.994 


.273 


21. 006 


-.061 


13. 493 


- 68.996 


.275 


21.004 


-.040 


13.495 


- 63.998 


.276 


21.002 


-.020 


13.495 


- 63.998 


.276 


21.002 


-. 020 
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4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

5 

5 

5 

5 

3 

3 

5 

3 

5 

3 

3 

3 

3 

3 

3 

5 



TABLE A -VI (CONT) 



BETft 



- 3. 843 
- 3.343 
- 3.843 
- 3.843 
- 3.845 
- 3. 843 
- 3.843 
- 3.843 
- 3.843 
- 3.343 
- 3.845 
- 3.843 
- 3.843 
- 3.843 
- 3.843 
- 3.845 
- 3.843 
- 3.843 
- 3.843 
- 3.845 
- 3.843 
- 3.343 
- 3.845 
- 3.843 
- 3.845 
- 3.843 
- 3.843 
- 3.843 
- 3.843 

- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4.649 
- 4. 649 
- 4.649 
- 4. 649 
- 4.649 
- 4.649 



THETFKRfiY ) NORMRL S RLPHR 2 RHO 2 



13.495 


- 68.998 


.276 


21.002 


-.018 


13.495 


- 68.998 


.277 


21. 002 


-.016 


13.496 


- 68.999 


.277 


21. 001 


-.014 


13.496 


- 63.999 


.277 


21.001 


-.012 


13.496 


- 68.999 


.277 


21. 001 


-.010 


13.496 


- 68.999 


.277 


21.001 


-.008 


13.496 


- 68.999 


.277 


21.001 


-.006 


13. 497 


- 69.000 


.277 


21.000 


-.004 


13.497 


- 69.000 


.277 


21. 000 


-.002 


13.497 


- 69.000 


.277 


21.000 


-.002 


13.497 


- 69.000 


.277 


21.000 


-.002 


13.497 


- 69. 000 


.273 


21.000 


-.002 


13.497 


- 69.000 


.278 


21.000 


-.001 


13.497 


- 69.000 


.278 


21.000 


-.001 


13.497 


- 69.000 


.278 


21.000 


-.001 


13.497 


- 69. 000 


.273 


21.000 


-.001 


13.497 


- 69. 000 


.278 


21.000 


-.001 


13.497 


- 69. 000 


.278 


21. 000 


- . 000 


13.497 


- 69. 000 


.278 


21 . 000 


-.000 


13.497 


- 69. 000 


.278 


21.000 


-.000 


13. 497 


- 69. 000 


. 278 


21. 000 


-.000 


13.497 


- 69. 000 


.278 


21.000 


-.000 


13.497 


- 69. 000 


.278 


21.000 


-. 000 


13.497 


- 69.000 


.278 


21. 000 


-.000 


13.497 


- 69.000 


.273 


21. 000 


-.000 


13.497 


- 69.000 


.278 


21. 000 


-.000 


13.497 


- 69. 000 


.278 


21. 000 


-.000 


13.497 


- 69. 000 


.278 


21. 000 


-.000 


13. 497 


- 69.000 


.278 


21.000 


-.000 


12.963 


- 68 . 468 


0.000 


21.332 


- 4.649 


12.993 


- 68.496 


.016 


21.304 


- 4.430 


13.820 


- 68.323 


.033 


21. 477 


- 4. 209 


13.048 


- 68.331 


.049 


21. 449 


- 3. 987 


13.075 


- 68.378 


.065 


21.422 


- 3. 764 


13. 103 


- 63.606 


.081 


21.394 


- 3.339 


13. 130 


- 63.633 


.098 


21.367 


•- 3. 313 


13. 157 


- 68.660 


.114 


21.340 


- 3 . 086 


13. 184 


- 68.637 


. 130 


21.313 


- 2. 857 


13.211 


- 68.714 


. 147 


21.236 


- 2. 627 


13.233 


- 68.741 


. 163 


21.259 


- 2.395 


13.265 


- 68.763 


. 179 


21.232 


- 2. 162 


13.291 


- 63.794 


. 193 


21.206 


- 1.927 


13.317 


- 68.320 


.212 


21. 130 


- 1.692 


13. 344 


— 68 .847 


.223 


21. 153 


- 1 . 434 


13.370 


- 63.873 


. 244 


21.127 


- 1.216 
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3 

5 

3 

5 

5 

5 

3 

3 

5 

3 

3 

5 

3 

3 

5 

3 

3 

3 

3 

3 

3 

3 

5 

3 

5 

3 

3 

3 

3 

5 

3 

3 

3 

3 

3 

5 

3 

3 

3 

5 

3 

5 

3 

3 

3 

3 



TABLE A— VI (CONT) 



BETA THETACRAY) NORMAL S ALPHA2 



- 4.649 


13.395 


- 63.398 


.261 


21. 102 


- 4.649 


13. 421 


- 68.924 


.277 


21.076 


- 4.649 


13.447 


- 63.930 


.293 


21.050 


- 4.649 


13.472 


- 63.975 


.309 


21.023 


- 4.649 


13.472 


- 68.975 


.309 


21.023 


- 4.649 


13.474 


- 63.977 


.311 


21.023 


- 4.649 


13.477 


- 68.980 


.313 


21.020 


- 4.649 


13. 479 


- 68.932 


.314 


21.013 


- 4.649 


13. 432 


- 63.933 


. 316 


21.013 


- 4.649 


13.434 


- 63.987 


.318 


21.013 


- 4.649 


13. 437 


- 68.990 


.319 


21.010 


- 4.649 


13. 490 


- 68.992 


.321 


21.008 


- 4.649 


13.492 


r 68 . 993 


.322 


21.003 


- 4.649 


13.493 


- 63.997 


.324 


21.003 


- 4.649 


13.492 


- 68.993 


.322 


21.003 


- 4.649 


13.492 


- 63.993 


.323 


21. 003 


- 4.649 


13.493 


- 63.993 


.323 


21.005 


- 4.649 


13.493 


- 68. 996 


.323 


21.004 


- 4. 649 


13.493 


- 68.996 


.323 


21.004 


- 4. 649 


13.493 


- 63.996 


.323 


21.004 


- 4.649 


13. 494 


- 68.996 


. 323 


21.004 


- 4.649 


13.494 


- 63.997 


.324 


21.003 


- 4.649 


13.494 


- 63.997 


.324 


21.003 


- 4.649 


13.494 


- 63.997 


.324 


21.003 


- 4.649 


13.493 


- 68.997 


.324 


21.003 


- 4. 649 


13.495 


- 68.998 


.324 


21.002 


- 4.649 


13.495 


- 63.993 


.324 


21.002 


- 4.649 


13.493 


- 63.993 


.325 


21.002 


- 4.649 


13.496 


- 63.998 


.323 


21.002 


- 4.649 


13.496 


- 63.999 


.325 


21.001 


- 4.649 


13.496 


- 63.999 


.323 


21.001 


- 4. 649 


13.496 


- 63.999 


.325 


21.001 


- 4.649 


13.497 


- 63.999 


.323 


21. 001 


- 4.649 


13.497 


- 69. 000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69. 000 


.326 


21.000 


- 4.649 


13.497 


- 69. 000 


.326 


21.000 


- 4. 649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13. 497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69.000 


.326 


21.000 


- 4.649 


13.497 


- 69. 000 


.326 


21. 000 


- 4.649 


13.497 


- 69.000 


.326 


21. 000 



RHO 2 



-.973 
-.734 
-.491 
-.246 
-.246 
-.221 
-. 197 
-. 172 
-. 143 
-. 123 
-.099 
-.074 
-.049 
-. 025 
-.049 
-.047 
-.044 
-. 042 
-.039 
-.037 
-.033 
-. 032 
-.030 
-. 027 
-.023 
-.022 
-.020 
-.017 
-.013 
-.012 
-.010 
-.007 
-.005 
-.002 
-. 002 
-.002 
-.002 
-.002 
-.001 
-.001 
-.001 
-.001 
-.000 
-.000 
-.000 
-.000 
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5 

3 

5 

5 

5 

5 

3 

5 

5 

5 

5 

5 

5 

5 

5 

5 

3 

5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 



TABLE A -VI (CONT) 



BETR 



- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 4.649 

- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
- 5.502 
4 - 5.502 
- 5.502 
- 5.502 
- 5.502 



THET R < RRY ) NQRMRL S RLPHR 2 RHO 2 



13 . 49 ? 


- 69.000 


.326 


21 . 000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69. 000 


.326 


21 . 000 


-. 000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


. 326 


21.000 


-. 000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13 . 49 ? 


- 69.000 


.326 


21.000 


000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


13.497 


- 69.000 


.326 


21.000 


-.000 


12.354 


- 68.357 


0.000 


21.643 


- 5.502 


12.883 


- 63.390 


.019 


21.610 


- 5.246 


12.921 


- 68.424 


.037 


21.576 


- 4 . 937 


12. 955 


- 68.458 


.056 


21.542 


- 4.727 


12.988 


- 63.491 


.075 


21.509 


- 4.465 


13.021 


- 68.524 


.093 


21.476 


- 4.201 


13.054 


- 63.557 


. 112 


21.443 


- 3. 935 


13.087 


- 68.590 


. 131 


21.410 


- 3.667 


13. 120 


- 63.623 


. 149 


21.377 


- 3 . 39 ? 


13. 153 


- 68.656 


. 168 


21.344 


- 3. 125 


13. 185 


- 68.688 


. 187 


21.312 


- 2.351 


13.217 


- 68.720 


.206 


21.280 


- 2.576 


13.249 


- 63.752 


.224 


21.243 


- 2.298 


13.281 


- 68.784 


.243 


21.216 


- 2.018 


13.313 


- 68.815 


.262 


21.185 


- 1.736 


13.344 


- 68.847 


.280 


21. 153 


- 1.451 


13.375 


- 68.373 


.299 


21. 122 


- 1. 165 


13.406 


- 68.909 


.318 


21.091 


-.877 


13 . 43 ? 


- 68.939 


.336 


21.061 


-.587 


13.467 


- 68.970 


.355 


21.030 


-.294 


13.437 


- 68.939 


.336 


21.061 


-.587 


13.440 


- 63.943 


.338 


21.057 


-.553 


13.443 


- 68.946 


.340 


21.054 


-.529 


13.446 


- 68.949 


.342 


21.051 


-.499 


13.449 


- 68.952 


.344 


21.043 


-. 470 


13.452 


- 63.955 


. 346 


21.045 


-.44 1 


13.455 


- 68.958 


. 348 


21.042 


-.412 
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6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

b 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 



TABLE A -VI (CONT) 



BETA THETfl < RAY > NORMRL S RLPHR 2 



- 5.502 


13.458 


- 63. 961 


. 349 


21.039 


- 5. 502 


13.461 


- 68.964 


.351 


21 . 036 


- 5.502 


13.464 


- 63.967 


.353 


21.033 


- 5.502 


13.467 


- 63. 970 


.355 


21.030 


- 5.502 


13.470 


- 63.973 


.357 


21.027 


- 5.502 


13.473 


- 68. 976 


.359 


21.024 


- 5.502 


13. 476 


- 68.979 


. 361 


21.021 


- 5.502 


13.479 


- 68.982 


.363 


21.018 


- 5.502 


13.482 


- 68.985 


• 364 


21.015 


- 5.502 


13.485 


- 68. 988 


.366 


21.012 


- 5.502 


13.488 


- 68.991 


.368 


21.009 


- 5.502 


13.491 


- 68.994 


. 370 


21.006 


- 5.502 


13.494 


- 68. 997 


.372 


21.003 


- 5.502 


13.491 


- 63.994 


.370 


21.006 


- 5.502 


13.491 


- 68. 994 


.370 


21.006 


- 5.502 


13.492 


- 68.995 


.370 


21.005 


- 5.502 


13.492 


- 68.995 


. 371 


21. 005 


- 5.502 


13.492 


- 63.995 


.371 


21.005 


- 5.502 


13.493 


- 63.995 


.371 


21.005 


- 5.502 


13.493 


- 63.996 


.371 


21.004 


- 5.502 


13.493 


- 68.996 


.371 


21.004 


- 5.502 


13.493 


- 68.996 


. 371 


21.004 


- 5.502 


13. 494 


- 68.997 


.372 


21.003 


- 5.502 


13.494 


- 68.997 


.372 


21.003 


- 5.502 


13.494 


- 63.997 


.372 


21.003 


- 5.502 


13.495 


- 68.993 


.372 


21.002 


- 5.502 


13.495 


- 68.993 


.372 


21.002 


- 5.502 


13.495 


- 63.998 


.373 


21.002 


- 5.502 


13.496 


- 68.999 


.373 


21.001 


- 5.502 


13.496 


- 68.999 


.373 


21.001 


- 5.502 


13.496 


- 63.999 


.373 


21.001 


- 5.502 


13.496 


- 63.999 


.373 


21.001 


- 5.502 


13.497 


- 69.000 


.374 


21.000 


- 5.502 


13.496 


- 63.999 


.373 


21.001 


- 5. 502 


13.496 


- 68. 999 


.373 


21.001 


- 5.502 


13.496 


- 63.999 


.373 


21.001 


- 5.502 


13.497 


- 68.999 


.373 


21.001 


- 5.502 


13.497 


- 69.000 


.373 


21.000 


- 5.502 


13.497 


- 69.000 


.373 


21.000 


- 5.502 


13.497 


- 69.000 


.373 


21.000 


- 5.502 


13. 497 


- 69. 000 


.373 


21.000 


- 5.502 


13.497 


- 69.000 


.373 


21.000 


- 5.502 


13.497 


- 69.000 


.374 


21.000 


- 5.502 


13.497 


- 69. 000 


.374 


21.000 


- 5.502 


13.497 


- 69.000 


.374 


21.000 


- 5.502 


13. 497 


- 69.000 


.374 


21.000 



J 



RHO 2 



-.382 
-.353 
-.324 
-.294 
-. 265 
-.236 
-.206 
-.177 
-.147 
-.113 
-.039 
-.059 
-.030 
-.059 
-.056 
-.053 
-.050 
-.047 
-.044 
-.04 1 
-. 038 
-. 035 
-.032 
-.030 
-. 027 
-.024 
-.021 
-.013 
-.015 
-.012 
-.009 
-.006 
-.003 
-.006 
-.006 
-.005 
-.005 
-.005 
-. 004 
-. 004 
-.004 
-.004 
-.003 
-.003 
-.003 
-.002 



94 



6 

6 

6 

6 

to 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

6 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 



TABLE A -VI (CONT) 



BETA 



- 3.502 
- 5.502 
- 3.502 
- 3.502 
- 3.302 
- 5.302 
- 3. 502 
- 3.502 
- 3. 302 
- 5.502 
- 5.302 
- 3.302 
- 3.302 
- 3.502 
- 3. 502 
- 3.302 
- 5.302 
- 5.502 
- 3.302 
- 5.502 
- 5.502 
- 3.302 
- 5.502 
- 3.302 
- 5.302 
- 3.302 
- 3.302 
- 3.302 

- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6. 409 
- 6.409 
- 6.409 



THETA < RAY > NORMAL S ALPHA 2 RHO 2 



13.497 


- 69.000 


.374 


21.000 


-.002 


13.497 


- 69.000 


.374 


21.000 


-.002 


13.497 


- 69. 000 


.374 


21 . 000 


-.001 


13.497 


- 69.000 


.374 


21.000 


-.001 


13.497 


- 69.000 


. 374 


21.000 


-.001 


13.497 


- 69.000 


.374 


21.000 


-.001 


13.497 


- 69.000 


. 374 


21.000 


-.000 


13.497 


- 69.000 


. 374 


21.000 


-.001 


13. 497 


- 69.000 


.374 


21.000 


-.001 


13.497 


- 69.000 


.374 


21.000 


-.001 


13.497 


- 69.000 


.374 


21.000 


-.001 


13.497 


- 69.000 


.374 


21. 000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13. 497 


- 69.000 


.374 


21.000 


-.000 


13. 497 


- 69.000 


.374 


21.000 


-. 000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-. 000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13. 497 


- 69. 000 


.374 


21.000 


-. 000 


13. 497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69.000 


.374 


21. 000 


-.000 


13.497 


- 69.000 


.374 


21.000 


-. 000 


13. 497 


- 69.000 


.374 


21.000 


-.000 


13.497 


- 69. 000 


.374 


21.000 


-.000 


12. 731 


- 68.234 


8 . 000 


21. 766 


- 6.409 


12. 772 


- 63.274 


.021 


21. 726 


- 6 . 113 


12.312 


- 68.313 


. 042 


21.683 


- 5. 317 


12.332 


- 63.333 


.063 


21.643 


- 5.518 


12.392 


- 63.394 


.084 


21.606 


- 5.215 


12.931 


- 68. 434 


. 103 


21. 366 


- 4.910 


12. 971 


- 63. 474 


. 127 


21.526 


- 4.602 


13.010 


- 63.513 


. 148 


21.437 


-- 4.292 


13.049 


- 68. 552 


. 169 


21.448 


- 3. 973 


13.038 


- 68. 391 


. 190 


21.409 


- 3 . 662 


13. 126 


- 63.629 


.211 


21. 371 


- 3.343 


13. 163 


- 68.668 


.232 


21.332 


- 3.022 


13.203 


- 63. 706 


.253 


21. 294 


- 2. 697 


13.241 


- 68. 744 


.274 


21.236 


- 2.370 


13.278 


- 68.781 


.293 


21.219 


- 2. 040 


13.316 


- 68.819 


.316 


21. 181 


- 1.707 


13.333 


- 68.336 


.337 


21. 144 


- 1. 372 



95 



7 

7 

“ 7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 



TABLE A-VI (CONT) 



BETA THETA< RAY) NORMAL S ALFHA2 



-6.409 


13.389 


-68.892 


.359 


21. 103 


-6.409 


13.426 


-68.928 


.380 


21.072 


-6.409 


13.461 


-68 . 964 


.401 


21.036 


-6.409 


13.426 


-68.928 


.380 


21.072 


-6.409 


13.429 


-68.932 


.382 


21.063 


-6.409 


13.433 


-68.936 


.384 


21 . 064 


-6. 409 


13.436 


-68.939 


.386 


21.061 


-6. 409 


13.440 


-68.943 


. 388 


21.057 


-6.409 


13.444 


-68. 946 


.390 


21.054 


-6.409 


13.447 


-68.950 


.392 


21.050 


-6.409 


13.451 


-68.954 


.394 


21.046 


-6.409 


13.454 


-68.957 


.396 


21.043 


-6.409 


13.458 


-68.961 


.399 


21.039 


-6.409 


13.461 


-68.964 


. 401 


21.036 


-6. 409 


13.465 


-68.968 


.403 


21.032 


-6.409 


13.469 


-68.972 


.405 


21.028 


-6.409 


13.472 


-68.975 


.407 


21.025 


-6.409 


13.476 


-68.979 


.409 


21.021 


-6.409 


13.479 


-68.982 


.411 


21.018 


-6.409 


13.483 


-63.986 


.413 


21.014 


-6.409 


13.486 


-68.989 


.415 


21.011 


-6.409 


13.490 


-68.993 


.418 


21.007 


-6. 409 


13.493 


-68.996 


.420 


21 . 004 


-6.409 


13. 490 


-68.993 


.413 


21.007 


-6.409 


13.490 


-63.993 


.418 


21.007 


-6.409 


13.491 


-68.994 


.418 


21.006 


-6.409 


13.491 


-68.994 


. 418 


21.006 


-6.409 


13.491 


-68.994 


.418 


21.006 


-6.409 


13.492 


-68.995 


.419 


21. 005 


-6.409 


13.492 


-68.995 


.419 


21.005 


-6.409 


13.492 


-68.995 


.419 


21. 005 


-6.409 


13.493 


-68. 996 


.419 


21.004 


-6.409 


13.493 


-68.996 


.419 


21.004 


-6.409 


13.493 


-68. 996 


.420 


21.004 


-6.409 


13.494 


-68.997 


.420 


21.003 


-6.409 


13.494 


-68.997 


.420 


21.003 


-6.409 


13.495 


-68.998 


. 420 


21.002 


-6.409 


13.495 


-68.998 


.420 


21.802 


-6.409 


13.495 


-68.998 


.421 


21.002 


-6.409 


13.496 


-68. 999 


.421 


21.001 


-6.409 


13.496 


-63.999 


.421 


21.001 


-6.409 


13.496 


-68.999 


.421 


21.001 


-6.409 


13.497 


-69.000 


.422 


21.000 


-6.409 


13.496 


-68.999 


.421 


21.001 


-6. 409 


13.496 


-68.999 


.421 


21. 001 


-6.409 


13.496 


-68.999 


.421 


21.001 



RHO 2 



-1.032 
- . 692 
-.347 
-.692 
-.657 
-.623 
-.539 
-.554 
-. 520 
-. 485 
-.451 
-.416 
-.382 
-. 347 
-. 313 
-. 278 
-.243 
-.209 
-. 174 
-. 139 
-. 104 
-.070 
-. 035 
-.070 
-.066 
-.063 
-.059 
-.056 
-.052 
-.049 
-.045 
-.042 
-.038 
-.035 
-.031 
-.028 
-.024 
-.021 
-.017 
-.014 
-.010 
-.007 
-.003 
-.007 
-.007 
-.006 



96 



7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

3 

3 

3 

3 

8 

3 

8 

8 

3 

8 

8 

8 

3 

8 

8 

8 

8 

3 



TABLE A-VI (CONT) 



BETA 



- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6. 409 
- 6. 409 
- 6.409 
- 6.409 
- 6.409 
- 6. 409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6. 409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 
- 6.409 

- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.375 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7.373 
- 7. 373 



THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



13.496 


- 68.999 


. 421 


21.001 


-.006 


13.496 


- 63.999 


. 421 


21.001 


-.006 


13.497 


- 68.999 


.421 


21.001 


-.005 


13.497 


- 69.000 


. 421 


21.000 


-.005 


13.497 


- 69.000 


.421 


21.000 


-. 005 


13.497 


- 69.000 


.422 


21.000 


-.004 


13.497 


- 69.000 


. 422 


21.000 


-.004 


13.497 


- 69.000 


.422 


21.000 


-.003 


13.497 


- 69.000 


. 422 


21.000 


-. 0 O 3 


13.497 


- 69.000 


.422 


21.000 


-.003 


13.497 


- 69.000 


.422 


21.000 


-.002 


13.497 


- 69.000 


.422 


21.000 


-.002 


13.497 


- 69.000 


.422 


21.000 


-.002 


13.497 


- 69.000 


. 422 


21. 000 


-.001 


13.497 


- 69.000 


. 422 


21.000 


-.001 


13.497 


- 69.000 


.422 


21.000 


-.001 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


. 422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-. 000 


13. 497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-. 000 


13.497 


- 69.000 


.422 


21.000 


-.000 


13.497 


- 69.000 


.422 


21.000 


-.000 


12.393 


- 63.098 


0.000 


21.902 


- 7.375 


12.643 


- 68. 146 


.023 


21.834 


- 7.041 


12.690 


- 68. 193 


.047 


21.307 


- 6.704 


12.738 


- 68.241 


.070 


21.759 


- 6.363 


12.783 


- 68.288 


.094 


21.712 


- 6.013 


12.831 


- 68.334 


. 117 


21. 666 


- 5.670 


12.878 


- 68. 381 


. 141 


21.619 


- 5.319 


12.924 


- 68.427 


. 164 


21.573 


- 4. 963 


12.970 


- 63. 473 


. 183 


21.327 


- 4.604 


13.016 


- 68.519 


.211 


21. 481 


*- 4.241 


13.062 


- 63. 563 


.233 


21.433 


- 3.373 


13. 107 


- 68. 610 


.238 


21.390 


- 3.505 


13 . 152 


- 68.633 


.282 


21.343 


- 3. 131 


13. 196 


- 68.699 


.303 


21.301 


- 2.733 


13.241 


- 68.744 


.329 


21.236 


- 2.371 


13.285 


- 68.737 


.332 


21.213 


- 1.986 


13.328 


- 63.831 


.376 


21. 169 


- 1. 397 


13. 371 


- 63.374 


.399 


21. 126 


- 1.203 



) 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

8 

3 

3 

3 

3 

3 

3 

3 

3 

3 

8 

8 

3 

3 

3 

3 

3 

3 

3 

8 

3 

3 

3 



TABLE A -VI (CONT) 



BETA 



-7.373 
-7.373 
-7.373 
-7.373 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.373 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7. 375 
-7.373 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 
-7.375 



THETA<RAY) NORMAL S ALPHA2 RHO 2 



13.413 


-68. 916 


.423 


21.084 


- . 306 


13. 455 


-68.958 


. 446 


21.042 


-.405 


13.413 


-68.916 


.423 


21.084 


- . S06 


13.418 


-68.921 


.425 


21.079 


- . 766 


13. 422 


-68.925 


.428 


21.075 


-.726 


13. 426 


-68.929 


.430 


21.071 


- . 686 


13. 430 


-68.933 


.432 


21.067 


-. 646 


13.435 


-63.937 


.435 


21.063 


-. 606 


13.439 


-68. 942 


. 437 


21.058 


-. 566 


13. 443 


-68.946 


.439 


21.054 


-.526 


13.447 


-68.950 


. 442 


21.050 


-.436 


13. 451 


-68.954 


. 444 


21.046 


-. 445 


13.455 


-68.958 


. 446 


21.042 


-.405 


13.460 


-63.963 


. 449 


21. 037 


-.365 


13. 464 


-68.967 


.451 


21.033 


-.324 


13.463 


-68.971 


.453 


21.029 


-.284 


13.472 


-63.975 


. 456 


21.025 


-.244 


13.476 


-68.979 


. 458 


21.021 


-.203 


13.480 


-63.983 


.460 


21.017 


-. 162 


13.485 


-68.988 


. 463 


21.012 


-. 122 


13. 439 


-68.992 


. 465 


21.003 


-. 031 


13. 493 


-68.996 


.467 


21.004 


-.041 


13.439 


-68.992 


.465 


21.003 


-.081 


13.489 


-68.992 


. 465 


21.003 


-.077 


13.490 


-63.993 


.466 


21.007 


-.073 


13.490 


-68.993 


. 466 


21.007 


-.069 


13.490 


-68.993 


. 466 


21 . 007 


-.065 


13.491 


-68.994 


. 466 


21.006 


-.061 


13.491 


-63.994 


.467 


21 . 006 


-.057 


13. 492 


-68.995 


. 467 


21.005 


-.053 


13. 492 


-68.995 


.467 


21.005 


-.049 


13.492 


-68.995 


. 467 


21.005 


-.045 


13. 493 


-68.996 


.467 


21. 004 


-. 041 


13.493 


-63.996 


.468 


21. 004 


-.037 


13.494 


-68.997 


.468 


21.003 


-.033 


13. 494 


-68.997 


. 468 


21.003 


-.023 


13.495 


-68.998 


.463 


21.002 


. -.024 


13.495 


-68.998 


.469 


21.002 


-.020 


13.495 


-68.998 


.469 


21.002 


-.016 


13. 496 


-63.999 


.469 


21.001 


-.012 


13.496 


-68.999 


.469 


21.001 


-.003 


13.497 


-69.000 


.470 


21.000 


-.004 


13. 496 


-68.999 


.469 


21.001 


-. 008 


13.496 


-68.999 


.469 


21.001 


-.008 


13.496 


-63.999 


.469 


21.001 


-.007 


13. 496 


-68.999 


. 469 


21.001 


-.007 
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8 

8 

3 

8 

8 

8 

3 

3 

8 

8 

8 

8 

3 

3 

8 

8 

3 

8 

3 

8 

8 

8 

8 

8 

3 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

9 

9 

9 

9 

9 

9 

9 

9 

9 



TABLE A— VI CCONT) 



BETA THETA < RAY > NORMAL S ALPHA 2 



- 7.375 


13.496 


- 68.999 


. 469 


21.001 


- 7.373 


13.496 


- 68. 999 


. 469 


21.001 


- 7.375 


13.496 


- 68.999 


.469 


21 . 001 


- 7.373 


13.497 


- 63.999 


.470 


21.001 


- 7.375 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.375 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.375 


13.497 


- 69.000 


.470 


21 . 000 


- 7.373 


13.497 


- 69.000 


.470 


21 . 000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69. 000 


.470 


21.000 


- 7.375 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.375 


13.497 


- 69.000 


.470 


21.000 


- 7.375 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21. 000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21 . 000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


. 470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.375 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13. 497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 7.373 


13.497 


- 69.000 


.470 


21.000 


- 8.406 


12.445 


- 67.948 


0.000 


22.052 


- 8.406 


12.500 


- 68.003 


.026 


21.997 


- 8.406 


12.356 


- 63.039 


.052 


21.941 


- 8.406 


12.61 1 


- 63 . 114 


.078 


21.886 


- 8.406 


1 2 • 666 


- 68 • 169 


. 104 


21.831 


- 8.406 


12.720 


- 68.223 


. 129 


21.777 


- 8.406 


12.773 


- 63.278 


. 155 


21.722 


- 8.406 


12.329 


- 63.332 


. 181 


21.663 


- 8.406 


12.383 


- 63. 386 


.207 


21.614 



RHO 2 



-.007 
-.006 
006 
-.003 
-.003 
-. 004 
-.004 
-.004 
-.003 
-.003 
-. 002 
-.002 
-. 002 
-.001 
-.001 
-.000 
-. 001 
-.001 
-.001 
-. 001 
-. 001 
-.001 
-.001 
-.001 
-.000 
-.000 
-.000 
-.000 
-.000 
-. 000 
-.000 
-. 000 
-.000 
-.000 
-.000 
-. 000 

- 8.406 
- 8.032 
- 7. 653 
- 7.269 
- 6.881 
- 6.433 
- 6.090 
- 3.638 
- 5.280 
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9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 



TABLE A-VI (CONT) 



BETA THETA CRAY ) NORMAL 3 ALPHA 2 RHO 2 



- 8 . 403 


12.937 


- 63.440 


.233 


21.560 


- 4.363 


- 8.406 


12.990 


- 68.493 


.259 


21.507 


- 4.451 


- 8. 406 


13.043 


- 68.546 


.235 


21.454 


- 4.029 


- 8.406 


13.095 


- 68.593 


.311 


21.402 


- 3.602 


- 8.406 


13. 147 


- 68. 650 


.337 


21.350 


- 3. 170 


- 8.406 


13. 199 


- 63. 702 


.363 


21.298 


- 2. 732 


- 8.406 


13. 250 


- 63. 753 


.388 


21.247 


- 2. 290 


- 8.406 


13.301 


- 68 . 804 


.414 


21 . 196 


- 1 . 342 


- 3.406 


13.351 


- 63. 354 


. 440 


21 . 146 


- 1.390 


- 8.406 


13. 400 


- 68.903 


• 466 


21. 097 


-.932 


- 8. 406 


13.449 


- 63.952 


.492 


21.043 


-. 469 


- 8.406 


13. 449 


- 68. 952 


. 492 


21.048 


-.469 


- 8.406 


13.454 


- 68.957 


.495 


21. 043 


-. 422 


- 8.406 


13. 459 


- 68.962 


.497 


21.038 


-.375 


- 8.406 


13.463 


- 63.966 


. 500 


21.034 


-.329 


- 8.406 


13. 468 


- 68.971 


.502 


21.029 


-. 282 


- 8.406 


13. 473 


- 68.976 


.505 


21. 024 


-.235 


- 8.406 


13.478 


- 68.981 


.508 


21.019 


-. 188 


- 3.406 


13.483 


- 68. 986 


.510 


21.014 


-. 141 


- 8. 406 


13. 487 


- 63. 990 


.513 


21.010 


-.094 


- 8.406 


13.492 


- 63.995 


.515 


21 . 005 


-.047 


- 8. 406 


13. 492 


- 63. 995 


.515 


21.005 


-.047 


- 8.406 


13.493 


- 63.996 


.516 


21.004 


-.042 


- 8.406 


13.493 


- 68.996 


. 516 


21.004 


-.038 


- 8 . 406 


13.494 


- 63. 997 


.516 


21.003 


-.033 


- 8.406 


13. 494 


- 68. 997 


.516 


21.003 


023 


- 8. 406 


13.495 


- 68.998 


.517 


21.002 


-. 024 


- 8. 406 


13.495 


- 68.998 


.517 


21.002 


-.019 


- 8.406 


13.496 


- 68.999 


.517 


21.001 


-.014 


- 8.406 


13.496 


- 63. 999 


.517 


21. 001 


-.009 


- 8.406 


13.497 


- 69. 000 


.518 


21. 000 


-. U 05 


- 8. 406 


13.497 


- 69. 000 


.518 


21.000 


-.005 


- 8.406 


13.497 


- 69.000 


.518 


21 . 000 


-.004 


- 8.406 


13.497 


- 69.000 


.518 


21. 000 


-.004 


- 8.406 


13.497 


- 69.000 


.518 


21. 000 


-. 003 


- 8.406 


13.497 


- 69.000 


.518 


21.000 


-.003 


- 8.406 


13.497 


- 69.000 


.518 


21. 000 


-.002 


- 8. 406 


13. 497 


- 69.000 


.518 


21. 000 


-.002 


- 3.406 


13.497 


- 69.000 


.518 


21.000 


-.001 


- 8. 406 


13.497 


- 69. 000 


.518 


21.000 


-.001 


- 8. 406 


13.497 


- 69.000 


.518 


21.000 


-.000 


- 8.406 


13.497 


- 69.000 


.518 


21.000 


-. 00 O 


- 8.406 


13.497 


- 69.000 


.513 


21. 000 


-.000 


- 8.406 


13.497 


- 69. 000 


.518 


21.000 


-.000 


- 8.406 


13. 497 


- 69.000 


.518 


21.000 


-. 000 


- 8.406 


13.497 


- 69. 000 


.518 


21 . 000 


-.000 



) 
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RAY 

9 

9 

9 

9 

9 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 



TABLE A- VI (CONT) 



BETA 



- 8 . 406 
- 8.406 
- 8.406 
- 8.406 
- 8.406 

- 9.507 
- 9.507 
- 9. 507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9. 507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9. 507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 
- 9.507 



THETA < RAY > 



NORMAL 



ALPHA 2 



RHO 



13.497 


- 69.000 


.518 


21.000 


-. 000 


13.497 


- 69.000 


.518 


21.000 


-.000 


13.497 


- 69.000 


.513 


21.000 


-. 000 


13.497 


- 69.000 


.513 


21.000 


-. 000 


13.497 


- 69.000 


.518 


21.000 


-.000 


12.277 


- 67.780 


0.000 


22.220 


- 9.507 


12. 341 


- 67.844 


.028 


22. 156 


- 9.091 


12.405 


- 67.908 


.057 


22. 092 


- 3 .670 


12. 469 


- 67.972 


.085 


22.028 


- 3.242 


12.533 


- 68.036 


. 113 


21.964 


- 7. 303 


12.596 


- 68.099 


.141 


21.901 


- 7.369 


12.660 


- 63. 163 


.170 


21 . 837 


- 6.923 


12.723 


- 63.226 


. 198 


21 . 774 


- 6. 471 


12.785 


- 63.283 


.226 


21.712 


- 6.013 


12.848 


- 63.351 


.255 


21.649 


- 5.548 


12.910 


- 63.412 


.283 


21.588 


- 5.077 


12. 971 


- 63.474 


.311 


21.526 


- 4.600 


13.032 


- 68.535 


.340 


21.465 


- 4.116 


13. 092 


- 68.595 


.368 


21.405 


- 3.625 


13 . 152 


- 63.655 


.396 


21.345 


- 3. 123 


13.212 


- 68. 715 


.424 


21.285 


- 2.624 


13.270 


- 68.773 


.453 


21.227 


- 2 . 113 


13.328 


- 63.331 


.481 


21. 169 


- 1.595 


13.385 


- 68.883 


. 509 


21.112 


- 1.070 


13.442 


- 63.945 


.533 


21. 055 


-.539 


13.385 


- 68.388 


.509 


21.112 


- 1 . 070 


13.391 


- 63.394 


.512 


21. 106 


- 1.017 


13.397 


- 68.900 


. 515 


21. 100 


-.965 


13. 402 


- 68.905 


.518 


21.095 


-.912 


13.408 


- 68.911 


.521 


21.089 


-.858 


13.414 


- 68.916 


.523 


21.084 


-.305 


13.419 


- 68.922 


.526 


21.078 


-.752 


13.425 


- 68.928 


.529 


21.072 


-.699 


13.430 


- 68.933 


.532 


21.067 


-.646 


13.436 


- 68.939 


.535 


21.061 


-.592 


13.442 


- 68.945 


.538 


21.055 


-.539 


13.447 


- 68.950 


.540 


21.050 


-.435 


13. 453 


- 68.956 


.543 


21.044 


-.431 


13.458 


- 63.961 


.546 


21.039 


-. 373 


13.464 


- 63.967 


.549 


21.033 


-.324 


13.469 


- 68.972 


.552 


21.028 


-.270 


13.475 


- 63.978 


.555 


21.022 


-.216 


13.480 


- 63.983 


.557 


21.017 


-.162 


13.486 


- 68.989 


. 560 


21.011 


-.108 


13.492 


- 63.994 


.563 


21.006 


-.054 
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RAY 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

11 

11 

It 

11 

11 

11 

11 

11 

11 

1 1 

1 1 

1 1 

1 1 

1 1 

11 



TABLE A-VI (CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 9.307 


13.492 


- 68.994 


.363 


21.006 


-.054 


- 9.307 


13.492 


- 68.995 


.363 


21.005 


-.049 


- 9.307 


13.493 


- 68.996 


.564 


21.004 


-.043 


- 9.307 


13.493 


- 68.996 


.564 


21.004 


-.033 


- 9.307 


13.494 


- 68.997 


. 364 


21.003 


-.033 


- 9.307 


13.494 


- 68.997 


.364 


21.003 


-.027 


- 9.307 


13.495 


- 68.998 


. 565 


21.002 


-.022 


- 9.307 


13.495 


- 68.998 


. 363 


21.002 


-.016 


- 9.307 


13.496 


- 68.999 


.565 


21.001 


-.011 


- 9.307 


13.496 


- 68.999 


.566 


21.001 


-.003 


- 9.307 


13.496 


- 68.999 


.566 


21.001 


-.005 


- 9.507 


13.497 


- 69.000 


.566 


21. 000 


-.005 


- 9.307 


13.497 


- 69.000 


.366 


21.000 


-.004 


- 9.307 


13.497 


- 69.000 


.566 


21.000 


-.004 


- 9.307 


13.497 


- 69.000 


.366 


21.000 


-.003 


- 9.307 


13.497 


- 69.000 


.566 


21.000 


-.003 


- 9.307 


13.497 


- 69.000 


.366 


21.000 


-.002 


- 9.307 


13.497 


- 69.000 


.566 


21.000 


-.002 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.001 


- 9 . 30 ? 


13.497 


- 69.000 


.366 


21.000 


-.001 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.001 


- 9.507 


13.497 


- 69. 000 


.566 


21.000 


-. 000 


- 9.307 


13.497 


- 69.000 


. 566 


21.000 


-. 000 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.000 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.000 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.000 


- 9.507 


13.497 


- 69.000 


.566 


21.000 


-.000 


- 9.307 


13.497 


- 69.000 


• 566 


21.000 


-.000 


- 9.307 


13.497 


- 69.000 


.366 


21.000 


000 


- 9.307 


13.497 


- 69.000 


.566 


21.000 


-.000 


- 10.685 


12.090 


- 67.593 


0 . 000 


22.407 


- 10.685 


- 10.683 


12. 164 


- 67. 667 


.031 


22.333 


- 10.227 


- 10. 685 


12.237 


- 67.740 


.061 


22.260 


- 9.762 


- 10.683 


12.311 


- 67.814 


.092 


22. 186 


- 9.239 


- 10. 683 


12.384 


- 67.887 


. 123 


22. 113 


- 8.309 


- 10.683 


12.458 


- 67.961 


. 133 


22. 039 


. - 8 . 320 


- 10.683 


12.531 


- 68.034 


. 184 


21.966 


- 7.825 


- 10.683 


12.603 


- 68. 106 


.215 


21.394 


- 7.321 


- 10.685 


12.676 


- 68. 179 


.246 


21.821 


- 6.309 


- 10.633 


12.748 


- 68.231 


.276 


21. 749 


- 6.239 


- 10. 685 


12.819 


- 68.322 


.307 


21.678 


- 5.760 


- 10. 683 


12.890 


- 68.393 


.338 


21.607 


- 5.224 


- 10.683 


12.961 


- 63. 464 


.368 


21.336 


- 4.679 


- 10.683 


13.031 


- 68.334 


.399 


21.466 


- 4. 125 


- 10.683 


13. 100 


- 63.603 


.430 


21.397 


- 3.562 
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RAY 

11 

11 

11 

11 

11 

11 

1 1 

11 

1 1 

1 1 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

1 1 

11 

11 

1 1 

11 

11 

11 

11 

11 

11 

1 1 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 



TABLE A-VI C.CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 10.685 


13. 169 


- 68.671 


. 460 


21.329 


- 2.991 


- 10.685 


13.236 


- 68.739 


. 491 


21.261 


- 2.411 


- 10.685 


13.303 


- 68.806 


.522 


21. 194 


- 1.822 


- 10.685 


13.369 


- 68.872 


.553 


21. 128 


- 1.224 


- 10.685 


13.433 


- 68 • 936 


.583 


21.064 


-.616 


- 10.685 


13.369 


- 68.872 


.553 


21. 128 


- 1.224 


- 10.685 


13.375 


- 68.878 


.556 


21. 122 


- 1. 163 


- 10.685 


13.382 


- 68.885 


.559 


21.115 


- 1. 103 


- 10.685 


13.388 


- 63.891 


.562 


21. 109 


- 1.042 


- 10.685 


13.395 


- 68.893 


.565 


21. 102 


-.982 


- 10.685 


13.401 


- 68.904 


.568 


21.096 


-.921 


- 10.685 


13.408 


- 68.911 


.571 


21.089 


-.860 


- 10.685 


13.414 


- 68.917 


.574 


21.083 


-.800 


- 10.685 


13. 421 


- 63.924 


. 577 


21.876 


-.739 


- 10.685 


13.427 


- 68.930 


.580 


21.070 


-.673 


- 10.685 


13.433 


- 63.936 


.583 


21.064 


-.616 


- 10.685 


13.440 


- 63. 943 


.586 


21.057 


-.555 


- 10.685 


13.446 


- 68.949 


.589 


21.051 


-.494 


- 10.685 


. 13.453 


- 68.956 


.592 


21.044 


-.432 


- 10.635 


13.459 


- 68.962 


.596 


21.038 


-.371 


- 10.685 


13. 465 


- 68.968 


.599 


21.032 


-.309 


- 10.685 


13.472 


- 68.975 


.602 


21.025 


-.243 


- 10.635 


13.478 


- 68.981 


. 605 


21.019 


-. 136 


- 10.685 


13.484 


- 68.987 


.608 


21.013 


-. 124 


- 10.685 


13.491 


- 68.994 


.611 


21.006 


-.062 


- 10.685 


13.484 


- 68.987 


.608 


21.013 


-. 124 


- 10.685 


13.485 


- 68.988 


. 608 


21.012 


-.113 


- 10.685 


13.486 


- 68.989 


.608 


21.011 


-.112 


- 10.685 


13.486 


- 68.989 


.609 


21.011 


-. 105 


- 10.685 


13.487 


- 68.990 


.609 


21.010 


-.099 


- 10.685 


13.488 


- 68.991 


.609 


21.009 


-.093 


- 10.685 


13.488 


- 68.991 


.610 


21.009 


-.087 


- 10.685 


13.489 


- 63.992 


.610 


21.003 


-.081 


- 10.685 


13. 489 


- 68.992 


.610 


21.008 


-.074 


- 10.685 


13.490 


- 68.993 


.611 


21.007 


-.068 


- 10.685 


13.491 


- 68.994 


.611 


21.006 


-.062 


- 10.685 


13.491 


- 63.994 


.611 


21.006 


-.056 


- 10.685 


13.492 


- 68.995 


.612 


21.005 


-.050 


- 10.685 


13.493 


- 68.996 


.612 


21.004 


-.043 


- 10.685 


13.493 


- 68.996 


.612 


21.004 


-.037 


- 10.685 


13.494 


- 63.997 


.612 


21.003 


-.031 


- 10.685 


13.495 


- 68.997 


.613 


21.003 


-.025 


- 10.685 


13.495 


- 68.998 


.613 


21.002 


-.019 


- 10.685 


13.496 


- 68.999 


.613 


21.001 


-.012 


- 10.685 


13. 496 


- 68. 999 


. 614 


21.001 


-. 006 


- 10.685 


13.496 


- 68.999 


.613 


21.001 


-.012 
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TABLE A -VI (CONT) 



RAY 


BETA 


THETfKRAY ) 


NORMAL 


S 


ALPHA 2 


RHO 2 


11 


- 10.583 


13.496 


- 68.999 


.613 


21.001 


-.012 


11 


- 10.683 


13.496 


- 68.999 


.613 


21.001 


-.011 


11 


- 10.685 


13.496 


- 68.999 


.613 


21.001 


-.011 


11 


- 10.683 


13.496 


- 68.999 


.613 


21.001 


-.010 


11 


- 10.685 


13.496 


- 68.999 


.614 


21.001 


-.009 


11 


- 10.685 


13.496 


- 68.999 


.614 


21.001 


-.009 


11 


- 10.633 


13.496 


- 68.999 


.614 


21.001 


-.003 


11 


- 10.683 


13.496 


- 68. 999 


.614 


21.001 


-.087 


1 1 


- 10.685 


13.496 


- 68.999 


.614 


21. 081 


-.007 


1 1 


- 18.685 


13.496 


- 68.999 


.614 


21.081 


-.006 


1 1 


- 10.685 


13.496 


- 68.999 


.614 


21.081 


-.006 


11 


- 18.683 


13.497 


- 68.999 


.614 


21. 001 


-.005 


1 1 


- 10.685 


13.497 


- 69.000 


.614 


21 . 000 


-.084 


11 


- 18.685 


13.497 


- 69.080 


. 614 


21.000 


-.084 


1 1 


- 18.683 


13.497 


- 69.008 


.614 


21.000 


-.803 


11 


- 10.683 


13.497 


- 69.880 


.614 


21.000 


-.082 


11 


- 10.683 


13.497 


- 69.000 


.614 


21.000 


-.002 


11 


- 10.683 


13.497 


- 69.888 


.614 


21.000 


-.001 


11 


- 18.685 


13.497 


- 69.808 


.614 


21.000 


-.001 


11 


- 18.683 


13.497 


- 69.808 


.614 


21.008 


-.001 


11 


- 18.685 


13.497 


- 69.000 


.614 


21.000 


-.001 


11 


- 10.683 


13.497 


- 69. 000 


.614 


21.000 


-.001 


11 


- 10.685 


13.497 


- 69. 880 


.614 


21.888 


-.001 


11 


- 18.683 


13.497 


- 69.800 


.614 


21.800 


-.001 


1 1 


- 18.683 


13.497 


- 69.808 


.614 


21.080 


-.801 


1 1 


- 10.685 


13.497 


- 69.000 


.614 


21.800 


-.001 


11 


- 10.685 


13.497 


- 69.000 


.614 


21.000 


-.881 


1 1 


- 10.683 


13.497 


- 69.000 


.614 


21.000 


-.801 


1 1 


- 10.685 


13.497 


- 69.080 


.614 


21.000 


-. 801 


11 


- 18.683 


13.497 


- 69.000 


.614 


21.000 


-.001 


1 1 


- 10.683 


13.497 


- 69.800 


.614 


21.000 


-.801 


11 


- 10.683 


13.497 


- 69.000 


.614 


21.000 


-.000 


11 


- 18.683 


13.497 


- 69.008 


.614 


21.000 


-.008 


11 


- 18.683 


13.497 


- 69.000 


.614 


21.000 


-.000 


1 1 


- 10.683 


13.497 


- 69.000 


.614 


21.880 


-.080 


11 


- 10.683 


13.497 


- 69.000 


.614 


21.080 


-.080 


11 


- 10.683 


13. 497 


- 69.080 


.614 


21.000 


. -.808 


11 


- 18.683 


13.497 


- 69.000 


.614 


21.000 


-.000 


11 


- 10.683 


13.497 


- 69.000 


.614 


21.000 


-. 800 


12 


- 11.947 


11.381 


- 67.384 


0.000 


22.616 


- 11.947 


12 


- 11.947 


11.965 


- 67.468 


.033 


22.332 


- 11. 446 


12 


- 11.947 


12.849 


- 67.352 


.066 


22.448 


- 10.937 


12 


- 11.947 


12. 133 


- 67.636 


.099 


22.364 


- 18.413 


12 


- 11.947 


12.217 


- 67.728 


. 132 


22.288 


- 9.889 


12 


- 11.947 


12.301 


- 67.804 


.166 


22. 196 


- 9.331 
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RAY 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 



TABLE A-VI (CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 11 . 94 ? 


12.335 


- 67.838 


. 199 


22. 112 


- 8 . S 03 


- 11.947 


12.469 


- 67.972 


.232 


22.023 


- 8.245 


- 11.947 


12. 552 


- 68.055 


.265 


21. 945 


- 7.677 


- 11.947 


12.635 


- 63. 138 


.298 


21.362 


- 7.098 


- 11.947 


12. 717 


- 63.220 


.331 


21. 780 


- 6.508 


- 11.947 


12.799 


- 63.302 


.364 


21.698 


- 5.903 


- 11. 947 


12.831 


- 63. 384 


.397 


21.616 


- 5. 297 


- 11.947 


12.961 


- 68. 464 


.430 


21.536 


- 4.675 


- 11.947 


13. 041 


- 63.544 


.463 


21.456 


- 4.042 


- 11.947 


13. 120 


- 63.623 


. 497 


21.377 


- 3.393 


- 11.947 


13 . 193 


- 63.701 


.530 


21.299 


- 2. 742 


- 11.947 


13.275 


- 68.773 


.563 


21.222 


- 2.074 


- 11.947 


13.350 


- 63.353 


.596 


21. 147 


- 1.395 


- 11.947 


13. 424 


- 63.927 


.629 


21. 073 


-.703 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-. 000 


- 11.947 


13.424 


- 63. 927 


.629 


21.073 


-. 703 


- 11.947 


13. 432 


- 63.935 


.632 


21.065 


-.633 


- 11.947 


13.439 


- 63.942 


.636 


21.058 


-.564 


- 11.947 


13.446 


- 63.949 


.639 


21.051 


-. 494 


- 11.947 


13.454 


- 63. 957 


• 642 


21 . 043 


-. 423 


- 11.947 


13.461 


- 63.964 


.645 


21.036 


-.353 


- 11.947 


13.463 


- 68.971 


.649 


21.029 


-.283 


- 11.947 


13.475 


- 63.973 


.652 


21.022 


-.212 


- 11.947 


13.433 


- 63. 986 


.655 


21.014 


-. 142 


- 11.947 


13. 490 


- 63.993 


.659 


21.007 


-.071 


- 11.947 


13.497 


- 69. 000 


.662 


21.000 


-. 000 


- 11.947 


13. 490 


- 63.993 


.659 


21.007 


-. 071 


- 11.947 


13. 491 


- 68.994 


.659 


21.006 


-.064 


- 11.947 


13. 491 


- 63.994 


.659 


21 . 006 


-.057 


- 11.947 


13. 492 


- 63.995 


.660 


21 . 005 


-.050 


- 11.947 


13. 493 


- 63.996 


.660 


21.004 


-.043 


- 11.947 


13. 493 


- 63.996 


.660 


21.004 


-.035 


- 11 . 94 ? 


13. 494 


- 68.997 


.661 


21. 003 


-.028 


- 11.947 


13. 495 


- 68.993 


.661 


21. 002 


-.021 


- 11.947 


13.496 


- 63.999 


.661 


21.001 


-.014 


- 11.947 


13. 496 


- 63. 999 


.662 


21.001 


-.007 


- 11.947 


13. 497 


- 69.000 


.662 


21.000 


. -.000 


- 11.947 


13.496 


- 68.999 


.662 


21.001 


-.007 


- 11.947 


13.496 


- 68.999 


.662 


21.001 


-.006 


- 11.947 


13.496 


- 63.999 


.662 


21.001 


-.006 


- 11.947 


13. 497 


- 63.999 


.662 


21.001 


-. 005 


- 11.947 


13.497 


- 69.000 


.662 


21. 000 


-.004 


- 11.947 


13. 497 


- 69.000 


.662 


21.000 


-. 004 


- 11.947 


13.497 


- 69.000 


.662 


21 . 000 


-.003 


- 11.947 


13. 497 


- 69.000 


.662 


21 . 000 


-. 002 


- 11.947 


13- 497 


- 69.000 


.662 


21. 000 


-. 001 
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TABLE A -VI (CONT) 



RAY 


BETA 


THETA < RAY ) 


NORMAL 


S 


ALPHA 2 


RHO 2 


12 


- 11 . 94 ? 


13.497 


- 69.000 


. 662 


21.000 


-.001 


12 


- 11.947 


13.497 


- 69.000 


. 662 


21.000 


-.000 


12 


- 11.947 


13. 497 


- 69.000 


. 662 


21.000 


-.001 


12 


- 11.947 


13.497 


- 69.000 


. 662 


21.000 


-. 001 


12 


- 11.947 


13. 497 


- 69.000 


.662 


21.000 


-.001 


12 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69.000 


.66 2 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11 . 94 ? 


13.497 


- 69.000 


.662 


21.000 


-.000 


12 


- 11.947 


13.497 


- 69. 000 


• 662 


21.000 


-.000 


13 


- 13.300 


11.546 


- 67 . 149 


0.000 


22.831 


- 13.308 


13 


- 13.300 


11.741 


- 67. 244 


.036 


22. 736 


- 12. 758 


13 


- 13.300 


11.337 


- 67.340 


.071 


22. 660 


- 12.203 


13 


- 13.300 


11.933 


- 67. 436 


. 107 


22.564 


- 1 1 . 638 


13 


- 13.300 


12.029 


- 67.332 


. 142 


22.468 


- 11 . 060 


13 


- 13.300 


12. 123 


- 67. 628 


. 178 


22.372 


- 10. 470 


13 


- 13.300 


12.221 


- 67.724 


.213 


22.276 


- 9. 868 


13 


- 13.300 


12. 316 


- 67.819 


.249 


22. 181 


- 9.233 


13 


- 13.300 


12.412 


- 67.913 


. 284 


22.085 


- 3.626 


13 


- 13. 300 


12.507 


- 68.010 


.320 


21.990 


- 7. 935 


13 


- 13. 300 


12. 602 


- 68. 105 


.333 


21.893 


- 7.331 


13 


- 13.300 


12.696 


- 68. 199 


.391 


21. 801 


- 5 . 663 


13 


- 13.300 


12.790 


- 68.293 


.426 


21.707 


- 5. 931 


13 


- 13.300 


12.332 


- 68.383 


.462 


21.615 


— 3 • 235 


13 


- 13.300 


12.974 


- 68. 477 


.497 


21.523 


- 4.375 


13 


- 13.300 


13.065 


- 63.568 


.333 


21.432 


- 3. 350 


13 . 


- 13.300 


13. 154 


- 68.637 


.568 


21.343 


- 3. 1 10 


13 


- 13. 300 


13.242 


- 68.745 


.604 


21.233 


- 2.356 


13 


- 13.300 


13.329 


- 68.832 


.639 


21. 168 


- 1. 386 


13 


- 13. 300 


13.414 


- 68.917 


.673 


21.083 


-.301 


13 


- 13.300 


13.329 


- 68.832 


.639 


21. 168 


- 1. 386 


13 


- 13.300 


13.333 


- 68. 841 


.643 


21. 139 


- 1.503 


13 


- 13.300 


13. 346 


- 68.849 


.646 


21.131 


.- 1. 430 


13 


- 13.300 


13.335 


- 68.858 


.650 


21. 142 


- 1.332 


13 


- 13.300 


13.363 


- 68.866 


.633 


21. 134 


- 1.274 


13 


- 13.300 


13. 372 


- 63.875 


. 657 


21. 123 


- 1. 193 


13 


- 13.300 


13.380 


- 68.883 


.660 


21.117 


- 1.117 


13 


- 13. 300 


13. 389 


- 68.392 


. 664 


21. 108 


- 1 . 033 


13 


- 13. 300 


13.397 


- 68.900 


.667 


21. 100 


-.939 


13 


- 13.300 


13.406 


- 68.909 


.671 


21.091 


-.380 


13 


- 13.300 


13.414 


- 68.917 


.673 


21.083 


-.301 


13 


- 13.300 


13. 422 


- 68. 925 


.678 


21. 073 


-.721 
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RAY 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 



TABLE A-VI (CONT) 



BETA 


THETA < RAY ) 


NORMAL 


S 


ALPHA 2 


RHO 2 


- 13.300 


13.431 


- 68.934 


.682 


21.066 


-.642 


- 13.300 


13. 439 


- 68.942 


.685 


21.058 


-.562 


- 13.300 


13.447 


- 68. 950 


. 639 


21.050 


-.432 


- 13.300 


13. 456 


- 68.959 


. 692 


21.041 


-.402 


- 13.300 


13.464 


- 68.967 


.696 


21.033 


-.322 


- 13.300 


13.472 


- 63. 975 


.699 


21.025 


-.242 


- 13.300 


13.481 


- 68.984 


. 703 


21.016 


-.161 


- 13.300 


13.439 


- 68.992 


.707 


21.008 


-.031 


- 13.300 


13.481 


- 68.984 


.703 


21.016 


-.161 


- 13.300 


13.481 


- 68.984 


. 703 


21.016 


-. 153 


- 13.300 


13. 482 


- 68.985 


.704 


21.015 


-. 145 


- 13.300 


13.483 


- 68. 986 


. 704 


21.014 


-. 137 


- 13.300 


13.484 


- 63.987 


.704 


21.013 


-. 129 


- 13.300 


13.485 


- 63.988 


.705 


21.012 


-. 121 


- 13.300 


13.486 


- 68.988 


. 705 


21.012 


-. 113 


- 13.300 


13.486 


- 68. 989 


. 705 


21.011 


-. 105 


- 13.300 


13.487 


- 68.990 


. 706 


21.010 


-.097 


- 13.300 


13.488 


- 68.991 


.706 


21.009 


-.089 


- 13.300 


13.489 


- 68.992 


.707 


21.008 


-. 031 


- 13.300 


13.490 


- 68.993 


.707 


21.007 


-.073 


- 13.300 


13.490 


- 68.993 


.707 


21.007 


-.065 


- 13.300 


13.491 


- 68.994 


.708 


21.006 


-. 057 


- 13.300 


13.492 


- 68.995 


.708 


21.005 


-.048 


- 13.300 


13.493 


- 68. 996 


.708 


21.004 


-.040 


- 13.300 


13.494 


- 68. 997 


. 709 


21.003 


-.032 


- 13.300 


13.495 


- 68.998 


. 709 


21.002 


-.024 


- 13.300 


13.495 


- 68.998 


.709 


21.002 


-.016 


- 13.300 


13.496 


- 68. 999 


.710 


21.001 


-.003 


- 13.300 


13.495 


- 68. 998 


.709 


21.002 


-.016 


- 13.300 


13.495 


- 68. 998 


.709 


21.002 


-.015 


- 13.300 


13.496 


- 68.999 


.709 


21.001 


-.015 


- 13.300 


13.496 


- 68.999 


.709 


21.001 


-.014 


- 13.300 


13.496 


- 68. 999 


.709 


21.001 


-.013 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.012 


- 13.300 


13.496 


- 68.999 


. 710 


21.001 


-.011 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.011 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.010 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.009 


- 13.300 


13.496 


- 68.999 


. 710 


21.001 


-.008 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-. 007 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.006 


- 13.300 


13.496 


- 68.999 


.710 


21.001 


-.006 


- 13.300 


13.497 


- 69.000 


.710 


21 . 000 


-. 005 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-. 004 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.003 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.002 
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RAY 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

•13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 



TABLE A -VI (CONT) 



BETA 


THETA < RAY > 


NORMAL 


S 


ALPHA 2 


RHO 2 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.002 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


. 710 


21.000 


-. 002 


- 13.300 


13.497 


- 69.000 


. 710 


21.000 


-.002 


- 13.300 


13. 497 


- 69.000 


.710 


21.000 


-.901 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13. 497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.716 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


. 710 


21.000 


-.001 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.000 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.000 


- 13.300 


13. 497 


- 69.000 


.710 


21.000 


-.000 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.000 


- 13.300 


13.497 


- 69.000 


. 710 


21.000 


-.000 


- 13.300 


13.497 


- 69.000 


.710 


21.000 


-.000 


- 14. 733 


11.382 


- 66.385 


0.000 


23. 113 


- 14. 755 


- 14.733 


11.490 


- 66. 993 


.038 


23. 007 


- 14. 170 


- 14.753 


11.398 


- 67. 101 


.076 


22.399 


- 13.372 


- 14.733 


11.706 


- 67.209 


.114 


22.791 


- 12.959 


- 14. 733 


11.313 


- 67.318 


. 132 


22.682 


- 12.331 


- 14.733 


11.924 


- 67.427 


. 190 


22.573 


- 11. 689 


- 14.753 


12.034 


- 67. 537 


.227 


22.463 


- 11.031 


- 14.733 


12. 143 


- 67 . 646 


.265 


22.334 


- 10.357 


- 14.733 


12.232 


- 67.735 


.303 


22.245 


- 9.663 


- 14.735 


12.361 


- 67.864 


.341 


22. 136 


- 8.962 


- 14.753 


12.470 


- 67. 973 


.379 


22.027 


- 8.233 


- 14.733 


12.578 


- 68.081 


. 417 


21.919 


- 7.498 


- 14.733 


12.683 


- 68. 188 


.435 


21.812 


- 6.740 


- 14.733 


12.792 


- 68.295 


.493 


21.705 


.- 3. 964 


- 14.733 


12.897 


- 63.400 


.531 


21.600 


- 5. 170 


- 14.733 


13.002 


- 68.305 


.569 


21.493 


- 4.357 


- 14.733 


13. 105 


- 68.608 


.606 


21.392 


- 3.324 


- 14. 733 


13.206 


- 68. 709 


. 644 


21.291 


- 2.673 


- 14.733 


13.303 


- 68. 808 


.632 


21. 192 


- 1.302 


- 14.755 


13.402 


- 68.905 


. 720 


21.093 


-.911 


- 14.753 


13.402 


- 63.905 


. 720 


21.093 


-.911 


- 14.755 


13.412 


- 68. 915 


. 724 


21.035 


-.321 


- 14.753 


13.421 


- 68.924 


.728 


21.076 


-.730 
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14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

13 

13 

13 

13 

13 

13 

13 

13 



TABLE A -VI (CONT) 



BETR 


THETRCRRY ) 


NORMRL 


S 


RLPHR 2 


RHO 2 


- 14.735 


13. 431 


- 68.934 


.732 


21.066 


-. 640 


- 14.753 


13.440 


- 68.943 


.733 


21.057 


-.349 


- 14. 735 


13.450 


- 68.933 


.739 


21.047 


-.453 


- 14.755 


13.439 


- 68. 962 


.743 


21.038 


-.367 


- 14.733 


13.469 


- 63.972 


.747 


21 . 028 


-.273 


- 14.753 


13. 478 


- 68. 981 


.731 


21 .019 


-.184 


- 14.733 


13. 488 


- 68.991 


.734 


21.009 


-.092 


- 14.755 


13. 488 


- 68. 991 


. 754 


21.009 


-.092 


- 14.733 


13.489 


- 68. 992 


.733 


21.003 


-.033 


- 14.755 


13.490 


- 68. 993 


. 733 


21.007 


-.074 


- 14.735 


13.490 


- 68.993 


.733 


21.007 


-.064 


- 14.733 


13.491 


- 68. 994 


.736 


21.006 


-.053 


- 14.733 


13.492 


- 68. 995 


. 736 


21.005 


-.046 


- 14.735 


13.493 


- 68.996 


.737 


21 . 004 


-.037 


- 14.733 


13.494 


- 68. 997 


.737 


21.003 


-.023 


- 14.733 


13.495 


- 68. 998 


. 737 


21.002 


-.013 


- 14.733 


13.496 


- 68. 999 


. 758 


21.001 


-.009 


- 14.733 


13.496 


- 68. 999 


.753 


21.001 


-.009 


- 14.733 


13.496 


- 68. 999 


.738 


21.001 


-.008 


- 14.733 


13.496 


- 68.999 


.733 


21.001 


-.007 


- 14.733 


13.496 


- 68. 999 


.738 


21.001 


-.006 


- 14.733 


13.496 


- 68. 999 


.738 


21.001 


-.006 


- 14.733 


13.497 


- 69.000 


. 758 


21 . 000 


-.005 


- 14.733 


13. 497 


- 69.000 


.758 


21.000 


-.004 


- 14.733 


13.497 


- 69.000 


.733 


21.000 


- . 003 


- 14.733 


13.497 


- 69.000 


.738 


21.000 


-.002 


- 14.733 


13.497 


- 69.000 


.738 


21.000 


-.001 


- 14.733 


13. 497 


- 69. 000 


.738 


21.000 


-.001 


- 14.733 


13.497 


- 69.000 


. 753 


21.000 


-. 001 


- 14.753 


13.497 


- 69. 000 


. 738 


21 . 000 


-.001 


- 14.733 


13.497 


- 69.000 


. 758 


21.000 


-.001 


- 14.733 


13.497 


- 69. 000 


.758 


21. 000 


-.001 


- 14.733 


13.497 


- 69. 000 


.738 


21.000 


-.000 


- 14.733 


13.497 


- 69. 000 


.738 


21.000 


-.000 


- 14.733 


13.497 


- 69.000 


.738 


21.000 


-.000 


- 14.733 


13.497 


- 69. 000 


.738 


21.000 


-.000 


- 14.733 


13.497 


- 69.000 


. 738 


21.000 


. -.000 


- 16.320 


11.083 


- 66.333 


0.000 


23.412 


- 16.320 


- 16.320 


11.203 


- 66. 708 


.040 


23.292 


- 13. 694 


- 16.320 


11.327 


- 66.830 


.081 


23. 170 


- 15. 032 


- 16.320 


11.449 


- 66.932 


. 121 


23.043 


- 14. 393 


- 16.320 


11.372 


- 67.073 


. 161 


22.923 


- 13. 713 


- 16.320 


11.696 


- 67. 199 


.202 


22.801 


- 13.019 


- 16.320 


1 1 . 320 


- 67.323 


.242 


22.677 


- 12. 303 


- 16.320 


11.944 


- 67. 447 


.282 


22.333 


- 1 1. 370 
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RAY 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 



TABLE A-VI (CONT) 



BETA THETAC RAY ) NORMAL S ALPHA2 



-16.320 


12.069 


-67.572 


.322 


22. 428 


-16.320 


12. 193 


-67.696 


.363 


22.304 


-16.320 


12.318 


-67.821 


. 403 


22. 179 


-16.320 


12.442 


-67.945 


. 443 


22.055 


-16.320 


12.565 


-68.068 


. 484 


21.932 


-16.320 


12.688 


-68. 191 


.524 


21 . 309 


-16.320 


12.809 


-68.312 


. 564 


21.688 


-16.320 


12.929 


-68. 432 


. 605 


21.568 


-16.320 


13.047 


-68.550 


.645 


21.450 


-16. 320 


13. 164 


—68 .667 


.685 


21.333 


-16.320 


13.278 


-68.780 


.726 


21.220 


-16.320 


13.389 


-68. 892 


.766 


21. 108 


-16.320 


13.278 


-68.780 


.726 


21.220 


-16.320 


13. 289 


-68.792 


. 730 


21.208 


-16. 320 


13. 300 


-68.803 


, 734 


21. 197 


-16.320 


13.311 


-68. 814 


. 738 


21. 186 


-16.320 


13.322 


-68. 825 


.742 


21. 175 


-16.320 


13.334 


-68. 836 


.746 


21. 164 


-16. 320 


13. 345 


-68.848 


.750 


21. 152 


-16.320 


13.356 


-68.859 


.754 


21. 141 


-16.320 


13.367 


-68.870 


. 758 


21. 130 


-16.320 


13.378 


-68.881 


.762 


21.119 


-16.320 


13.389 


-68.392 


.766 


21. 108 


-16.320 


13.400 


-68.903 


.770 


21.097 


-16.320 


13.411 


-68.914 


.774 


21.086 


-16.320 


13.422 


-68. 925 


.778 


21.075 


-16.320 


13.432 


-68.935 


.782 


21.065 


-16.320 


13.443 


-68.946 


.786 


21.054 


-16.320 


13.454 


-68. 957 


.790 


21.043 


-16.320 


13. 465 


-68. 968 


.794 


21.032 


-16.320 


13.476 


-68. 979 


.798 


21.021 


-16.320 


13.486 


-68.989 


.302 


21.011 


-16.320 


13.486 


-68. 989 


.802 


21.011 


-16.320 


13.487 


-68.990 


.803 


21.010 


-16.320 


13. 489 


-68. 991 


.803 


21.009 


-16.320 


13.490 


-68.993 


.803 


21.007 


-16.320 


13.491 


-68.994 


.304 


21.006 


-16.320 


13. 492 


-68.995 


.804 


21. 005 


-16.320 


13. 493 


-68.996 


.805 


21.004 


-16.320 


13.494 


-68.997 


.805 


21.003 


-16.320 


13.495 


-68.998 


.805 


21. 002 


-16. 320 


13. 496 


-68.999 


.806 


21.001 


-16. 320 


13.496 


-68. 999 


.306 


21.001 


-16.320 


13.496 


-68.999 


.306 


21.001 


-16.320 


13. 496 


-68.999 


.806 


21.001 


-16.320 


13.496 


-68. 999 


.806 


21.001 



RHO 2 



- 10.816 
-10.041 
-9.245 
-8.427 
-7.597 
-6.724 
-5. 838 
-4. 927 
-3.992 
-3.033 
-2.043 
-1. 037 
-2.043 
-1.948 
-1.348 
-1.747 
- 1 . 646 
-l. 546 
-1.444 
-1.343 
-1.241 
-l . 139 
-1.037 
-.934 
-.832 
-.729 
-.625 
-.522 
-.418 
-.314 
-.209 
-. 105 
-.105 
-.094 
-.084 
-.073 
-.063 
* -.052 
-.042 
-.031 
-.021 
-.010 
-.010 
-.009 
-.008 
-.007 
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RAY 

13 

15 

15 

13 

15 

13 

13 

13 

15 

13 

15 

13 

13 

13 

15 

15 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 



TABLE A— VI (CONT) 



BETA 


THETA < RA Y > 


NORMAL 


S 


ALPHA 2 


RHO 2 


- 16.320 


13.496 


- 63.999 


.806 


21.001 


-.006 


- 16.320 


13.497 


- 68. 999 


.806 


21.001 


-.003 


- 16.320 


13.497 


- 69.000 


.306 


21.000 


-.004 


- 16.320 


13.497 


- 69.000 


.306 


21.000 


-.003 


- 16.320 


13.497 


- 69.000 


.306 


21.000 


-.002 


- 16.320 


13. 497 


- 69.000 


.306 


21.000 


-.001 


- 16.320 


13. 497 


- 69.000 


.306 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


.306 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


. 306 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


. 806 


21.000 


-.001 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.000 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.000 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.000 


- 16.320 


13.497 


- 69.000 


.806 


21.000 


-.000 


- 18.003 


10.749 


- 66.232 


0.000 


23.748 


- 18.003 


- 18.005 


10.333 


- 66 . 386 


.043 


23.614 


- 17.341 


- 18.003 


11.019 


- 66.322 


.085 


23.478 


- 16. 657 


- 18.005 


1 1 . 156 


- 66.639 


. 128 


23.341 


- 13.932 


- 18.005 


11.294 


- 66.797 


. 171 


23.203 


- 15.226 


- 18.005 


11.434 


- 66 • 937 


.214 


23.063 


- 14. 477 


- 18.005 


11.574 


- 67.077 


.256 


22.923 


- 13.704 


- 18.003 


11.715 


- 67.213 


.299 


22. 782 


- 12.903 


- 13.003 


11.837 


- 67.360 


.342 


22.640 


- 12.087 


- 18.003 


11.999 


- 67.502 


.384 


22.498 


- 11.240 


- 18.003 


12. 141 


- 67.644 


.427 


22.336 


- 10.367 


- 18.003 


12.283 


- 67.786 


.470 


22.214 


- 9.467 


- 18.003 


12.423 


- 67.928 


.313 


22.072 


- 8. 533 


- 18.003 


12.566 


- 68.069 


.335 


21.931 


- 7.380 


- 18.005 


12.706 


- 68.209 


.398 


21.791 


- 6.593 


- 18. 003 


12.344 


- 68.347 


.641 


21.633 


- 3.373 


- 18.003 


12.980 


- 68.483 


.683 


21.317 


- 4.523 


- 18.005 


13. 114 


- 68. 617 


.726 


21.383 


- 3. 444 


- 18.005 


13.243 


- 68.748 


.769 


21.252 


- 2.329 


- 18.003 


13.373 


- 68.876 


.811 


21. 124 


- 1. 182 


- 18.005 


13.245 


- 68.748 


.769 


21.232 


- 2.329 


- 18.003 


13.258 


- 68. 761 


.773 


21.239 


- 2.216 


- 18.003 


13.271 


- 68. 774 


.777 


21.226 


- 2. 103 


- 18. 003 


13.284 


- 68. 787 


.732 


21.213 


- 1.989 


- 18.003 


13.297 


- 68. 800 


.786 


21.208 


- 1.874 


- 18.005 


13.310 


- 68.813 


.790 


21.187 


- 1.760 


- 18.003 


13.323 


- 68.826 


.794 


21.174 


- 1.645 


- 18.003 


13.333 


- 68.833 


.799 


21.162 


- 1.530 


- 18.005 


13. 348 


- 68.851 


.803 


21. 149 


- 1.414 
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16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 



TABLE A-VI (CONT) 



BETA 


THETA < RAY > 


NORMAL 


S 


ALPHA 2 


RHO 2 


- 18.005 


13. 331 


- 68.364 


.807 


21. 136 


- 1.298 


- 18.005 


13.373 


- 68. 876 


.811 


21. 124 


- 1.182 


- 18.005 


13.386 


- 68.889 


.316 


21.111 


- 1.065 


- 13.005 


13.398 


- 68.901 


.320 


21.099 


-.948 


- 18.005 


13.411 


- 68.914 


.824 


21.086 


-.331 


- 18.005 


13.423 


- 68.926 


.829 


21.074 


-.713 


- 18.005 


13.436 


- 68. 939 


.833 


21.061 


-.595 


- 18. 005 


13.448 


- 63.951 


. 337 


21.049 


-.477 


- 18.005 


13.460 


- 63. 963 


.841 


21.037 


— . o 5 8 


- 18.005 


13.473 


- 68.976 


. 846 


21. 024 


-.239 


- 18. 005 


13.485 


- 68. 988 


.350 


21.012 


-. 120 


- 18. 005 


13.473 


- 68. 976 


.346 


21.024 


-.239 


- 13 . O 05 


13.474 


- 68. 977 


.846 


21.023 


-.227 


- 18.005 


13.475 


- 68.978 


. 847 


21.022 


-.215 


- 18.005 


13.476 


- 68.979 


.847 


21.021 


-.203 


- 18. 005 


13.478 


- 68.980 


.847 


21.020 


-.191 


- 18.005 


13.479 


- 68. 982 


. 848 


21.018 


-. 179 


- 18.005 


13.480 


- 68.983 


. 343 


21 . 017 


-. 168 


- 18.005 


13.481 


- 68.984 


.849 


21.016 


156 


- 18.005 


13.482 


- 68.985 


.349 


21.015 


-. 144 


- 18.005 


13.484 


- 68.987 


.350 


21.013 


132 


- 18.005 


13. 485 


- 68.988 


.350 


21.012 


-. 120 


- 18.005 


13.486 


- 68. 989 


.850 


21.011 


-. 108 


- 18.005 


13.487 


- 68.990 


.851 


21.010 


-.096 


- 18.005 


13.489 


- 68. 991 


.351 


21.009 


-.084 


- 18. 005 


13. 490 


- 68.993 


.852 


21. 007 


-.072 


- 18.005 


13.491 


- 68.994 


.852 


21.006 


-.060 


- 18.005 


13.492 


- 68.995 


.852 


21.005 


-.048 


- 18. 005 


13.493 


- 68. 996 


.353 


21. 004 


-.036 


- 18.005 


13.495 


- 68.998 


.853 


21.002 


-.024 


- 18.005 


13.496 


- 68.999 


.854 


21.001 


-.012 


- 18.005 


13.496 


- 68.999 


.854 


21.001 


-.012 


- 18.005 


13.496 


- 68.999 


. 854 


21.001 


-.011 


- 18. 005 


13.496 


- 68.999 


.854 


21.001 


-.010 


- 18.005 


13.496 


- 68.999 


.854 


21.001 


-.008 


- 18.005 


13.496 


- 68.999 


.854 


21.001 


-.007 


- 18.005 


13.496 


- 68.999 


.854 


21.001 


-.006 


- 18.005 


13. 497 


- 69.000 


.354 


21.000 


-.005 


- 18.005 


13. 497 


- 69.000 


.354 


21.000 


-. 004 


- 18.005 


13.497 


- 69.000 


.854 


21.000 


-.002 


- 13. 005 


13.497 


- 69.000 


.354 


21.000 


-. 001 


- 18. 005 


13. 497 


- 69.000 


.354 


21.000 


-.002 


- 13.005 


13. 497 


- 69.000 


.854 


21 . 000 


-. 002 


- 18.005 


13.497 


- 69.000 


.854 


21 . 000 


-.002 


- 18. 005 


13. 497 


- 69.000 


.354 


21.000 


-.002 


- 18. 005 


13.497 


- 69.000 


.854 


21.000 


-. 002 
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TABLE A— VI (CONT) 



RRY 


BET R 


THETRCRRY ) 


NORMRL 


S 


RLPHR 2 


RHO 2 


16 


- 13.005 


13.497 


- 69. 000 


.354 


21.000 


-.002 


16 


- 18.005 


13. 497 


- 69.000 


.354 


21.000 


-.002 


16 


- 13.005 


13.497 


- 69.000 


. 354 


21 . 000 


-.002 


16 


• .- 13.005 


13.497 


- 69. 000 


.354 


21.000 


-.001 


16 


- 13.005 


13. 497 


- 69. 000 


.354 


21.000 


-.001 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-.001 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-.001 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-. 001 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-.001 


16 


- 18. 005 


13.497 


- 69.000 


.354 


21.000 


-.001 


16 


- 13.005 


13. 497 


- 69.000 


.354 


21.000 


-.001 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-.000 


16 


- 13.005 


13.497 


- 69. 000 


. 354 


21.000 


-.000 


16 


- 13. 005 


13. 497 


- 69.000 


.854 


21.000 


-.000 


16 


- 13.005 


13.497 


- 69.000 


.354 


21.000 


-.000 


17 


- 19.323 


10.369 


- 65.372 


0.000 


24. 123 


- 19.323 


17 


- 19.323 


10.517 


- 66.020 


.045 


23.930 


- 19 . 124 


17 


- 19.323 


10.663 


- 66. 171 


. 090 


23.329 


- 13.400 


17 


- 19.323 


10.321 


- 66.323 


. 135 


23.677 


- 17. 652 


17 


- 19.323 


10.975 


- 66.473 


. 130 


23.522 


- 16.373 


17 


- 19.323 


11.132 


- 66.635 


.226 


23.365 


- 16.077 


17 


- 19.323 


11.290 


- 66.793 


.271 


23.207 


- 15.243 


17 


- 19.323 


11.450 


- 66 . 953 


.316 


23.047 


- 14.389 


17 


- 19.823 


11.611 


- 67. 114 


. 361 


22.336 


- 13.500 


17 


- 19.323 


11.773 


- 67.275 


. 406 


22.725 


- 12.573 


17 


- 19.323 


11.935 


- 67.433 


.451 


22.562 


-1 1. 624 


17 


- 19.323 


12.098 


- 67.601 


.496 


22.399 


- 10. 636 


17 


- 19.323 


12.261 


- 67.764 


. 541 


22.236 


- 9.612 


17 


- 19.323 


12.423 


- 67.926 


.536 


22.074 


- 3.552 


17 


- 19.323 


12.534 


- 63.037 


.632 


21.913 


- 7.454 


17 


- 19.323 


12.744 


- 63.247 


.677 


21.753 


- 6.316 


17 


- 19.323 


12.902 


- 63.405 


. 722 


21.595 


- 5. 133 


17 


- 19.323 


13.056 


- 63.559 


. 767 


21. 441 


- 3.913 


17 


- 19.323 


13.203 


- 63.711 


.312 


21.239 


- 2.656 


17 


- 19.323 


13.355 


- 68. 353 


.357 


21.142 


- 1.350 


17 


- 19.323 


13.203 


- 63.711 


.312 


21.239 


.- 2.656 


17 


- 19.323 


13.223 


- 63.726 


.317 


21.274 


- 2.527 


17 


- 19.323 


13. 233 


- 68.741 


.321 


21.259 


- 2. 393 


17 


- 19.323 


13.252 


- 63.755 


.326 


21.245 


- 2.269 


17 


- 19.323 


13.267 


- 63.770 


.330 


21.230 


- 2. 139 


17 


- 19.323 


13.232 


- 6 3.735 


.335 


21.215 


- 2.009 


17 


- 19.323 


13.297 


- 63. 300 


.339 


21.200 


- 1.373 


17 


- 19.323 


13.311 


- 63.314 


.344 


21. 136 


- 1. 747 


17 


- 19.323 


13.326 


- 63.329 


. 343 


21 . 171 


- 1.615 


17 


- 19.323 


13.340 


- 63. 343 


.353 


21. 157 


- 1.433 
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17 

17 

17 

17 

17 

17 

17 

17 

17 

1 T 

17 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 

18 



TABLE A-VI (CONT) 



BETA THETA< RAY ) NORMAL S ALPHA2 RHO 2 



-19,823 


13.355 


-68.858 


.857 


21. 142 


-1.350 


-19,823 


13.369 


-68. 872 


.862 


21. 128 


-1.217 


-19.823 


13.384 


-68.387 


.866 


21. 113 


-1.084 


-19.823 


13. 398 


-63.901 


.871 


21.099 


-.950 


-19.823 


13.412 


-68.915 


.875 


21.085 


-.816 


-19.823 


13.427 


-68.930 


.880 


21.070 


-.681 


-19.823 


13.441 


-63.944 


.884 


21.056 


-.545 


-19.823 


13.455 


-68.958 


.889 


21.042 


-.410 


-19.823 


13. 469 


-68.972 


.393 


21.028 


-.274 


-19.823 


13.483 


-68.986 


.898 


21.014 


-. 137 


-19.823 


13.497 


-69.000 


.902 


21.000 


-.000 


-21.784 


9.938 


-65.441 


0.000 


24. 559 


-21.784 


-21.784 


10. 101 


-65 • 604 


.048 


24.396 


-21.055 


-21.784 


10. 267 


-65.770 


. 095 


24.230 


-20.297 


-21. 784 


10.436 


-65.939 


. 143 


24.061 


-19.509 


-21.784 


10.608 


-66. Ill 


. 190 


23.889 


-13.691 


-21.784 


10. 782 


-66.285 


.238 


23.715 


-17.340 


-21.784 


10.960 


-66 . 463 


.285 


23.537 


-16.955 


-21.784 


11. 140 


-66 • 643 


.333 


23.357 


-16.035 


-21.784 


11.322 


-66.825 


.380 


23. 175 


-15.077 


-21.784 


11.506 


-67.009 


.428 


22.991 


-14.030 


-21.784 


11.692 


-67. 195 


.475 


22.805 


-13.042 


-21.784 


11.378 


-67.381 


.523 


22.619 


-11.961 


-21.784 


12.066 


-67.569 


.570 


22.431 


-10.335 


-21.784 


12. 253 


-67.756 


.618 


22.244 


-9.663 


-21.784 


12.439 


-67.942 


.665 


22.058 


-8.443 


-21.784 


12.625 


-68. 127 


.713 


21.873 


-7. 172 


-21.784 


12. 807 


-68. 310 


.760 


21.690 


-5.849 


-21.784 


12.987 


-68. 490 


.808 


21.510 


-4.472 


-21.784 


13. 163 


-68 . 666 


.855 


21. 334 


-3.039 


-21.784 


13.333 


-68.836 


.903 


21. 164 


-1. 549 


-21.784 


13.333 


-68.836 


.903 


21.164 


-1. 549 


-21.784 


13.350 


-68. 853 


.908 


21.147 


-1.397 


-21.784 


13.367 


-68.869 


.912 


21. 131 


-1. 244 


-21.784 


13.383 


-68.886 


.917 


21.114 


-1.090 


-21.784 


13.400 


-68. 903 


.922 


21.097 


-.936 


-21.784 


13.416 


-68.919 


.927 


21.081 


-.732 


-21.784 


13.432 


-68.935 


.931 


21.065 


-.627 


-21.784 


13.449 


-68.952 


.936 


21.048 


-.471 


-21.784 


13.465 


-68. 968 


.941 


21.032 


-.314 


-21.784 


13.481 


-68.984 


.946 


21.016 


-. 158 


-21.784 


13. 481 


-68.984 


.946 


21.016 


-. 158 


-21.784 


13.483 


-68. 986 


.946 


21.014 


-. 142 


-21.784 


13. 484 


-63.987 


.947 


21.013 


-. 126 


-21.784 


13.486 


-68.989 


.947 


21.011 


-. 110 
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19 
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19 

19 

19 

19 

19 

19 

19 
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TABLE A —VI CCONT) 



BETA THETACRAY ) NORMAL S ALPHA 2 RHO 2 



- 21.784 


13.487 


- 68.990 


.947 


21.010 


-.095 


- 21.784 


13.489 


- 68.992 


.948 


21.008 


-.079 


- 21.784 


13.491 


- 68.994 


. 948 


21.006 


-.063 


- 21.784 


13.492 


- 68.993 


.949 


21.005 


-.047 


- 21.784 


13.494 


- 68.997 


. 949 


21.003 


-.032 


- 21.784 


13.493 


- 68. 998 


. 930 


21.002 


-.016 


- 21.784 


13.493 


- 68.998 


. 950 


21.002 


-.016 


- 21.784 


13.496 


- 68.999 


.930 


21.001 


-.014 


- 21.784 


13.496 


- 68.999 


.950 


21.001 


-.013 


- 21.784 


13.496 


- 68. 999 


.950 


21.001 


-.011 


- 21.784 


13.496 


- 68.999 


.950 


21.001 


-.009 


- 21.784 


13.496 


- 68. 999 


.950 


21.001 


-.003 


- 21.784 


13.496 


- 68.999 


.950 


21.001 


-.006 


- 21.784 


13. 497 


- 69.000 


. 950 


21.000 


-.005 


- 21.784 


13. 497 


- 69.000 


. 950 


21. 000 


-.003 


- 21.784 


13.497 


- 69. 000 


.950 


21.000 


-.002 


- 21.784 


13. 497 


- 69.000 


.950 


21.000 


-.002 


- 21. 784 


13.497 


- 69.000 


.950 


21.000 


-.001 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.001 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.001 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.001 


- 21.784 


13.497 


- 69.000 


. 950 


21.000 


-.001 


- 21.734 


13.497 


- 69.000 


.950 


21.000 


-.001 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.000 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.000 


- 21.784 


13.497 


- 69.000 


.950 


21.000 


-.000 


- 23.903 


9.430 


- 64.933 


0.000 


23.047 


- 23.903 


- 23.903 


9.626 


- 65. 129 


.050 


24.871 


- 23. 149 


- 23.903 


9.307 


- 63.310 


. 100 


24.690 


- 22.362 


- 23.903 


9.993 


- 63.496 


. 150 


24.504 


- 21.541 


- 23.903 


10. 182 


- 65 . 683 


.200 


24.315 


- 20.684 


- 23.903 


10.376 


- 63.879 


.250 


24. 121 


- 19.788 


- 23.903 


10.374 


- 66.077 


.300 


23.923 


- 18.851 


- 23.903 


10.776 


- 66.279 


.349 


23.721 


- 17.872 


- 23.903 


10.981 


- 66.484 


.399 


23.516 


- 16.847 


- 23.903 


11.190 


- 66.693 


.449 


23.307 


- 15.773 


- 23.903 


11.402 


- 66 . 903 


.499 


23.095 


- 14.649 


- 23.903 


11.616 


- 67. 118 


.549 


22.882 


- 13.472 


- 23.903 


11.831 


- 67.334 


.599 


22.666 


- 12.239 


- 23.903 


12.047 


- 67.330 


.649 


22.450 


- 10.946 


- 23.903 


12.264 


- 67.767 


.699 


22.233 


- 9.591 


- 23.903 


12.480 


- 67.983 


.749 


22.017 


- 8. 172 


- 23.903 


12.693 


- 68. 196 


.799 


21.304 


- 6.684 


- 23.903 


12.903 


- 68.406 


.349 


21.594 


- 5. 126 


- 23.903 


13 . 108 


- 68.611 


.899 


21.389 


- 3.494 
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TABLE A— VI (CONT) 



BETA THETACRAY ) NORMAL S ALPHA 2 RHO 2 



- 23. 903 


13.307 


- 63.310 


.948 


21.190 


- 1.786 


- 23.903 


13.497 


- 69.000 


. 998 


21.000 


-.000 


- 26. 190 


8.893 


- 64.398 


0.000 


25.602 


- 26. 190 


- 26. 190 


9.085 


- 64.588 


.052 


25.412 


- 25.421 


- 26. 190 


9.230 


- 64.783 


. 105 


25.217 


- 24.615 


- 26. 190 


9.481 


- 64.984 


. 157 


25.016 


- 23.769 


- 26. 190 


9.683 


- 65. 191 


.209 


24. 809 


- 22.330 


- 26. 190 


9.902 


- 63.403 


.262 


24.395 


- 21.946 


- 26. 190 


10. 121 


- 65.624 


.314 


24.376 


- 20.964 


- 26. 190 


10.346 


- 65.349 


.366 


24 . 151 


- 19.931 


- 26. 190 


10.576 


- 66.079 


.419 


23.921 


- 18.342 


- 26. 190 


10.312 


- 66.315 


.471 


23.685 


- 17.695 


- 26. 190 


11.052 


- 66.553 


.523 


23.445 


- 16. 486 


- 26. 190 


11.297 


- 66.800 


.376 


23.200 


- 15.210 


- 26.190 


11.545 


- 67.048 


.628 


22.932 


- 13.363 


- 26. 190 


11.796 


- 67.299 


.680 


22.701 


- 12.441 


- 26. 190 


12.049 


- 67.552 


.732 


22.443 


- 10.940 


- 26. 190 


12.301 


- 67.804 


.733 


22. 196 


- 9.354 


- 26. 190 


12.552 


- 68.035 


.337 


21.945 


- 7. 679 


- 26. 190 


12.799 


- 68.302 


.889 


21.698 


- 5.910 


- 26. 190 


13.041 


- 68 . 544 


.942 


21.436 


- 4.043 


- 26. 190 


13.274 


- 68. 777 


.994 


21.223 


- 2.073 


- 26. 190 


13.497 


- 69.000 


1.046 


21.000 


-.000 


- 28.661 


8.267 


- 63.770 


0.000 


26.230 


- 28.661 


- 28.661 


8.467 


- 63.970 


.053 


26.030 


- 27. 338 


- 28.661 


3.674 


- 64. 177 


. 109 


25.823 


- 27. 073 


- 28.661 


8.890 


- 64.393 


. 164 


23.607 


- 26.213 


- 28.661 


9 . 113 


- 64.616 


.219 


25.384 


- 25. 305 


- 28.661 


9.345 


- 64.348 


.274 


23. 152 


- 24.344 


- 28.661 


9.585 


- 65.088 


.328 


24.912 


- 23.326 


- 28.661 


9.333 


- 65.336 


. 383 


24.664 


- 22.243 


- 28.661 


10.090 


- 65.593 


. 438 


24.407 


- 21. 104 


- 28.661 


10.355 


- 65.358 


.493 


24. 142 


- 19.339 


- 28.661 


10.627 


- 66. 130 


.547 


23.870 


- 18.598 


- 28.661 


10.906 


- 66.409 


.602 


23.591 


- 17. 224 


- 28.661 


11.192 


- 66.695 


.657 


23.305 


- 13.762 


- 28.661 


11.484 


- 66.987 


.711 


23.013 


- 14.204 


- 28.661 


11.779 


- 67.282 


.766 


22.718 


- 12. 543 


- 28.661 


12.076 


- 67.379 


.821 


22.421 


- 10.771 


- 28.661 


12.373 


- 67.876 


.876 


22. 124 


- 8.882 


- 28.661 


12.667 


- 68. 170 


.930 


21.330 


- 6 . 363 


- 28.661 


12.956 


- 68.459 


. 985 


21.541 


- 4.721 


- 28.661 


13.234 


- 68.737 


1.040 


21.263 


- 2. 433 


- 28.661 


12.936 


- 68.459 


.983 


21.541 


- 4. 721 
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21 

21 

21 

21 

21 

21 
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21 
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TABLE A-VI (CONT) 



BETA THETA ( RAY ) NORMAL S ALPHA 2 RHO 2 



- 23.661 


12.984 


- 68. 487 


.990 


21.513 


- 4.498 


- 28.661 


13.012 


- 68. 515 


.996 


21.485 


- 4.274 


- 28.661 


13. 040 


- 68.543 


1.001 


21.457 


- 4.049 


- 28.661 


13.068 


- 68.571 


1.007 


21.429 


- 3.323 


- 28.661 


13.096 


- 68.599 


1.012 


21. 401 


- 3.595 


- 28.661 


13. 124 


- 68.627 


1.018 


21.373 


- 3.365 


- 28.661 


13. 151 


- 68.654 


1.023 


21.346 


- 3. 134 


- 28.661 


13. 179 


- 68. 682 


1.029 


21.318 


- 2. 902 


- 28.661 


13.206 


- 68.709 


1.034 


21.291 


- 2.663 


- 28.661 


13.234 


- 68. 737 


1.040 


21.263 


- 2. 433 


- 28.661 


13.261 


- 68.764 


1.045 


21.236 


- 2. 197 


- 23.661 


13.288 


- 68.791 


1.051 


21.209 


- 1.958 


- 28.661 


13.314 


- 68.817 


1.056 


21. 183 


- 1.719 


- 28.661 


13.341 


- 68.844 


1.062 


21. 156 


- 1.473 


- 28.661 


13.367 


- 68 . S 70 


1.067 


21 . 130 


- 1. 235 


- 28.661 


13.394 


- 68.897 


1.073 


21. 103 


-. 991 


- 28.661 


13.420 


- 63.923 


1.078 


21.077 


-. 746 


- 28.661 


13.446 


- 68.949 


1.084 


21.051 


-. 499 


- 28.661 


13.471 


- 68.974 


1.089 


21.026 


-.250 


- 28.661 


13.471 


- 68.974 


1.089 


21.026 


-. 250 


- 28.661 


13.474 


- 68.977 


1.090 


21.023 


-.225 


- 28.661 


13.477 


- 68.980 


1. 090 


21.020 


-. 200 


- 28.661 


13.479 


- 68.982 


1.091 


21.018 


-.175 


- 28.661 


13.482 


- 68. 985 


1.091 


21.015 


-. 150 


- 28.661 


13.484 


- 68.987 


1.092 


21.013 


-. 125 


- 28.661 


13.487 


- 68.990 


1.092 


21.010 


-. 100 


- 28.661 


13.489 


- 68. 992 


1.093 


21.008 


-.075 


- 28.661 


13.492 


- 68. 995 


1. 093 


21.005 


-.050 


- 28.661 


13.494 


- 68.997 


1.094 


21 . 003 


-.025 


- 28.661 


13. 497 


- 69.000 


1.094 


21.000 


-. 000 


- 28.661 


13.494 


- 68.997 


1.094 


21.003 


-.025 


- 28.661 


13.495 


- 68. 998 


1.094 


21.002 


-.023 


- 28.661 


13.495 


- 68.998 


1.094 


21.002 


-.020 


- 28.661 


13.495 


- 68.998 


1.094 


21. 002 


-.019 


- 28.661 


13.496 


- 68.998 


1.094 


21.002 


-.015 


- 28.661 


13.496 


- 68.999 


1.094 


21.001 


-.013 


- 28.661 


13. 496 


- 68.999 


1.094 


21.001 


. -.010 


- 28.661 


13.496 


- 68.999 


1.094 


21.001 


-.008 


- 28.661 


13. 497 


- 68.999 


1.094 


21.001 


-.005 


- 28.661 


13.497 


- 69.000 


1.094 


21.000 


-.003 


- 28.661 


13.497 


- 68.999 


1.094 


21.001 


-.005 


- 28.661 


13. 497 


- 69.000 


1.094 


21.000 


-.005 


- 28.661 


13.497 


- 69.000 


1.094 


21.000 


-.005 


- 28.661 


13.497 


- 69.000 


1.094 


21.000 


-. 004 


- 23.661 


13.497 


- 69.000 


1.094 


21.000 


-. 004 


- 28. 661 


13.497 


- 69.000 


1.094 


21.000 


-.004 
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TABLE A-VI (CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHO 2 



- 23.661 


13.497 


- 69.000 


1.094 


21.000 


-.004 


- 23.661 


13.497 


- 69. 000 


1.094 


21.000 


-.003 


- 23.661 


13.497 


- 69. 000 


1.094 


21.000 


-.003 


- 23.661 


13.497 


- 69. 000 


1.094 


21.000 


-.003 


- 23.661 


13.497 


- 69.000 


1 . 094 


21.000 


-.003 


- 23.661 


13. 497 


- 69. 000 


1 . 094 


21.000 


-.002 


- 28.661 


13.497 


- 69.000 


1.094 


21.000 


-.002 


- 23.661 


13.497 


- 69.000 


1 . 094 


21.000 


-. 002 


- 28.661 


13. 497 


- 69.000 


1 . 094 


21.000 


-.002 


- 23.661 


13.497 


- 69.000 


1.094 


21. 000 


-.001 


- 23.661 


13.497 


- 69.000 


1.094 


21.000 


-.001 


- 28.661 


13.497 


- 69. 000 


1.094 


21.000 


-.001 


- 23. 661 


13.497 


- 69.000 


1.094 


21.000 


-.001 


— 23 .661 


13.497 


- 69.000 


1.094 


21.000 


-.000 


- 31.326 


7.556 


- 63.053 


0.000 


26.942 


- 31.326 


- 31.326 


7.762 


- 63.265 


. 057 


26.735 


- 30.564 


- 31.326 


7.979 


- 63.482 


. 114 


26.513 


- 29.756 


- 31.326 


3.205 


- 63.703 


. 171 


26. 292 


- 23.898 


- 31.326 


3.442 


- 63.945 


.229 


26.055 


- 27. 935 


- 31.326 


3.690 


- 64. 193 


.236 


25.807 


- 27.012 


- 31.326 


8 . 949 


- 64.452 


.343 


25.543 


- 25. 974 


- 31.326 


9.219 


- 64.722 


. 400 


25.273 


- 24 . 866 


- 31.326 


9.502 


- 65.005 


.457 


24.995 


- 23. 630 


- 31.326 


9.796 


- 65.299 


.514 


24.701 


- 22. 410 


- 31.326 


10. 103 


- 65.606 


.571 


24.394 


- 21.046 


- 31.326 


10.420 


- 65.923 


.623 


24.077 


- 19.532 


- 31.326 


10.749 


- 66.252 


.636 


23.743 


- 18.005 


- 31.326 


11.037 


- 66.590 


.743 


23.410 


- 16. 303 


- 31.326 


11.434 


- 66.937 


.800 


23.063 


- 14.477 


- 31.326 


11.786 


- 67.239 


.857 


22.711 


- 12.501 


- 31.326 


12. 141 


- 67.644 


.914 


22.356 


- 10. 367 


- 31.326 


12.496 


- 67.999 


.971 


22.001 


- 3.063 


- 31.326 


12.344 


- 68.347 


1.028 


21.653 


- 5.575 


- 31.326 


13. 130 


- 63.633 


1.085 


21.317 


- 2.391 


- 31.326 


12. 344 


- 68.347 


1.023 


21.653 


- 5. 575 


- 31.326 


12. 373 


- 63.331 


1.034 


21.619 


.- 5.315 


- 31.326 


12.913 


- 63.415 


1.040 


21.535 


- 5.054 


- 31. 326 


12.947 


- 63.450 


1.045 


21.550 


- 4.791 


- 31.326 


12.930 


- 63.483 


1.051 


21.517 


- 4.525 


- 31.326 


13.014 


- 68.517 


1.057 


21.483 


- 4.253 


- 31.326 


13. 043 


- 63.551 


1.063 


21.449 


- 3.989 


- 31.326 


13. 081 


- 63.534 


1.063 


21.416 


- 3.717 


- 31.326 


13. 114 


- 68.617 


1.074 


21.383 


- 3. 444 


- 31.326 


13. 147 


- 68.650 


1.030 


21.350 


- 3. 163 


- 31. 326 


13. 130 


- 63.633 


1.035 


21.317 


- 2. 391 



118 



RAY 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 



TABLE A-VI CCONT) 



BETA THETA(RAY) NORMAL S ALPHA2 RHO 2 



-31.326 


13.213 


-68.716 


1.091 


21.284 


-2.611 


-31.326 


13.245 


-68.748 


1.097 


21.252 


-2.330 


-31.326 


13.278 


-68. 781 


1. 103 


21.219 


-2. 046 


-31. 326 


13.310 


-68.313 


1. 108 


21. 137 


-1.760 


-31.326 


13.342 


-68. 845 


1.114 


21. 155 


-1 . 472 


-31.326 


13. 373 


-68.876 


1. 120 


21 . 124 


-1 . 182 


-31.326 


13. 405 


-68. 908 


1. 125 


21.092 


-. 890 


-31.326 


13. 436 


-63. 939 


1. 131 


21.061 


595 


-31. 326 


13. 466 


-68. 969 


1. 137 


21.031 


-.299 


-31.326 


13.436 


-68. 939 


1. 131 


21.061 


-.595 


-31.326 


13. 439 


-68. 942 


1. 132 


21.058 


-.566 


-31.326 


13.442 


-68.945 


1 . 132 


21.055 


-.536 


-31.326 


13.445 


-68.948 


1. 133 


21.052 


-.506 


-31.326 


13.448 


-68.951 


1. 133 


21.049 


-.477 


-31.326 


13.451 


-68. 954 


1. 13^ 


21.046 


-. 447 


-31.326 


13.454 


-68. 957 


1. 135 


21.043 


-.418 


-31.326 


13.457 


-68. 960 


1 . 135 


21 . 040 


-.388 


-31.326 


13.460 


-63.963 


1 . 136 


21.037 


-.358 


-31.326 


13. 463 


-68. 966 


1. 136 


21.034 


-.328 


-31 . 326 


13.466 


-68.969 


1. 137 


21.031 


- . 299 


-31.326 


13.470 


-68.973 


1. 137 


21.027 


-.269 


-31.326 


13.473 


-68.976 


1. 138 


21 . 024 


-.239 


-31.326 


13.476 


-68. 979 


1. 139 


21.021 


-.209 


-31.326 


13.479 


-68. 982 


1 . 139 


21.018 


-. 179 


-31.326 


13.482 


-68. 985 


1 . 140 


21.015 


-. 150 


-31.326 


13. 485 


-68. 988 


1. 140 


21.012 


-. 120 


-31.326 


13.488 


-68. 991 


1. 141 


21.009 


-.090 


-31.326 


13. 491 


-68. 994 


1 . 141 


21.006 


-.060 


-31.326 


13.494 


-68.997 


1. 142 


21.003 


-. 030 


-31.326 


13.491 


-68. 994 


1. 141 


21 . 006 


-. 06O 


-31.326 


13.491 


-68.994 


1. 141 


21.006 


-. 057 


-31.326 


13.492 


-68.995 


1 . 141 


21 . 005 


-. 054 


-31.326 


13.492 


-68. 995 


1. 142 


21.005 


-.051 


-31.326 


13. 492 


-68. 995 


1. 142 


21.005 


-. 043 


-31.326 


13. 492 


-68.995 


1. 142 


21.005 


-.045 


-31.326 


13. 493 


-68.996 


1. 142 


21.004 


-. 042 


-31.326 


13.493 


-68.996 


1.142 


21.004 


-.039 


-31.326 


13.493 


-68.996 


1. 142 


21.004 


-.036 


-31 . 326 


13.494 


-68.997 


1. 142 


21.003 


-. 033 


-31.326 


13.494 


-68.997 


1. 142 


21.003 


-.030 


-31.326 


13. 494 


-68.997 


1. 142 


21 . 003 


-. 027 


-31.326 


13.495 


-63.998 


1. 142 


21. 002 


-. 024 


-31.326 


13. 495 


-68.998 


1. 142 


21.002 


-.021 


-31.326 


13. 495 


-63.998 


1 . 142 


21.002 


-. 018 


-31.326 


13.496 


-63.998 


1. 142 


21.002 


-.015 


-31.326 


13.496 


-68. 999 


1.142 


21.001 


-.012 
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RAY 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 



TABLE A -VI (CONT) 



BETA 



-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-31.326 

-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34.198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34. 198 
-34.198 
-34. 198 
-34. 198 
-34. 198 



THETA < RAY > NORMAL S ALPHA 2 RHO 2 



13.496 


-68.999 


1. 142 


21.001 


-.009 


13.496 


-63.999 


1. 142 


21.001 


-. 006 


13.497 


-69.000 


1. 142 


21.000 


-. 003 


13.496 


-68.999 


1. 142 


21.001 


- . 006 


13.496 


-68.999 


1. 142 


21.001 


-.006 


13.496 


-68.999 


1. 142 


21.001 


-.005 


13.497 


-68.999 


1.142 


21.001 


-.005 


13. 497 


-69.000 


1. 142 


21.000 


-.005 


13.497 


-69.000 


1. 142 


21.000 


-.004 


13.497 


-69.000 


1. 142 


21.000 


-.004 


13.497 


-69.000 


1. 142 


21.000 


-.004 


13.497 


-69. 000 


1. 142 


21.000 


-. 004 


13. 497 


-69.000 


1. 142 


21 . 000 


-.003 


13.497 


-69.000 


1. 142 


21.000 


-.003 


13.497 


-69.000 


1. 142 


21.000 


-.003 


13.497 


-69.000 


1. 142 


21.000 


-.002 


13.497 


-69.000 


1. 142 


21.000 


-.002 


13. 497 


-69.000 


1. 142 


21.000 


-.002 


13.497 


-69.000 


1. 142 


21.000 


-.001 


13.497 


-69.000 


1. 142 


21.000 


-.001 


13.497 


-69.000 


1. 142 


21.000 


-.001 


13.497 


-69.000 


1. 142 


21.000 


-. 001 


13.497 


-69.000 


1. 142 


21.000 


-.000 


6.733 


-62.256 


0.000 


27.744 


-34. 198 


6. 961 


-62.464 


.060 


27.536 


-33. 465 


7. 181 


-62.684 


. 119 


27.316 


-32. 683 


7.413 


-62.916 


. 179 


27.084 


-31 . 346 


7.658 


-63. 161 


.238 


26.839 


-30.949 


7.917 


-63.420 


.298 


26.588 


-29. 986 


8. 191 


-63.694 


.357 


26.306 


-23.951 


8. 480 


-63.983 


.417 


26.017 


-27.835 


8.786 


-64.289 


.476 


25.711 


-26.629 


9. 109 


-64.612 


.536 


25.388 


-25.323 


9.449 


-64.952 


.595 


25.048 


-23.907 


9.806 


-65.309 


.655 


24.691 


-22.367 


10. 181 


-65.684 


.714 


24.316 


-20. 683 


10.573 


-66.076 


.774 


23.924 


-13.355 


10.981 


-66.484 


.833 


23.516 


-16.850 


11.401 


-66. 904 


.893 


23.096 


-14.653 


11.831 


-67.333 


.952 


22.667 


-12.242 


12.264 


-67.767 


1.012 


22.233 


-9.594 


12.693 


-68. 196 


1.071 


21.804 


-6.686 


13.108 


-68.611 


1. 131 


21.389 


-3. 495 


13.497 


-69.000 


1. 191 


21.000 


-. 000 
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24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 



TABLE A-VI CCONT) 



BETA THETA< RAY ) NORMAL S ALPHA2 RHO 2 



-37 • 283 


5.352 


-61.333 


0.000 


23.645 


-37.235 


-37.283 


8.033 


-61 . 338 


.062 


28. 442 


-36.603 


-37.283 


6.270 


-61.773 


. 124 


28.227 


-33.870 


-37.283 


6.500 


-62.003 


. 186 


27.997 


-33.030 


-37.285 


6.743 


-62.248 


.248 


27.732 


-34.227 


-37.283 


7.007 


-62.310 


.310 


27.490 


-33.304 


-37.283 


7.287 


-62.790 


.372 


27.210 


-32.301 


-37.283 


7.537 


-63.090 


. 434 


26.910 


-31.209 


-37.283 


7. 909 


-63.412 


.495 


26.388 


-30.017 


-37.283 


8.254 


-63. 737 


.537 


26.243 


-28.710 


-37.283 


8.623 


-64. 126 


.619 


23.874 


-27.274 


-37.283 


9.019 


-64.322 


.681 


23.478 


-23.690 


-37.283 


9.441 


-64.944 


.743 


25.036 


-23.937 


-37.283 


9.892 


-65.393 


.803 


24.603 


-21.990 


-37.285 


10.369 


-65.872 


.867 


24. 128 


-19.820 


-37.283 


10.372 


-66.373 


.929 


23.623 


-17.393 


-37.283 


11.397 


-66.900 


.991 


23. 100 


-14.676 


-37.233 


11.933 


-67.438 


1.033 


22.562 


-11.623 


-37.233 


12.477 


-67.980 


1.113 


22.020 


-8. 189 


-37.283 


13.005 


-68.308 


1. 177 


21.492 


-4.329 


-37.283 


12.477 


-67.980 


1.113 


22.020 


-8. 189 


-37.283 


12.331 


-68. 034 


1. 121 


21.966 


-7.823 


-37.283 


12.584 


-68. 087 


1. 127 


21.913 


-7.452 


-37.283 


12.638 


-68. 141 


1.133 


21.839 


-7.077 


-37.285 


12.691 


-68. 194 


1. 140 


21.806 


-6.698 


-37.283 


12.744 


-68.247 


1. 146 


21. 733 


-6.313 


-37.283 


12.797 


-68.300 


1. 152 


21.700 


-3.927 


-37.283 


12.349 


-68.332 


1. 138 


21.648 


-5.334 


-37.283 


12. 902 


-68.403 


1. 164 


21.393 


-3. 137 


-37.283 


12.934 


-68.457 


1. 170 


21.343 


-4.735 


-37.283 


13.003 


-68.308 


1. 177 


21.492 


-4.329 


-37.283 


13.037 


-68.539 


1. 183 


21.441 


-3.918 


-37.283 


13. 107 


-68. 610 


1. 189 


21.390 


-3.302 


-37.283 


13. 158 


-68.661 


1.193 


21.339 


-3.081 


-37.283 


13.208 


-68.711 


1.201 


21.289 


-2.636 


-37.283 


13.237 


-68.760 


1.208 


21.240 


-2.223 


-37.283 


13.306 


-68.809 


1.214 


21. 191 


.-1.790 


-37.285 


13.333 


-68.838 


1.220 


21.142 


-1.330 


-37.283 


13.403 


-68.906 


1.226 


21.094 


-.903 


-37.283 


13.430 


-68.933 


1.232 


21.047 


-.453 


-37.283 


13. 403 


-68.906 


1.226 


21.094 


-.903 


-37.233 


13. 408 


-68.911 


1.227 


21.089 


-.860 


-37.285 


13.412 


-68.913 


1.227 


21.083 


-.813 


-37.283 


13.417 


-68.920 


1.228 


21.080 


-.770 


-37.285 


13.422 


-68.923 


1.229 


21.073 


-. 726 


-37.283 


13.427 


-68.930 


1.229 


21.070 


-.681 
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24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 



TABLE A— VI (CONT) 



BETA 



- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.235 
- 37.285 
- 37.235 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.235 
- 37.285 
- 37.235 
- 37.285 
- 37.285 
- 37.235 
- 37. 235 
- 37.285 
- 37.235 
- 37.235 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 
- 37.285 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 

- 40.591 



THETA ( RAY ) NORMAL S ALPHA 2 RHO 2 



13.431 


- 68.934 


1.230 


21.066 


-.636 


13.436 


- 68.939 


1.231 


21.061 


-.590 


13.441 


- 68.944 


1.231 


21.056 


-.545 


13.446 


- 63.949 


1.232 


21.051 


-.500 


13.450 


- 68.953 


1.232 


21.047 


-.455 


13.455 


- 68.953 


1.233 


21.042 


-.410 


13.460 


- 68.963 


1.234 


21.037 


-.364 


13.464 


- 68.967 


1.234 


21.033 


-.319 


13.469 


- 68.972 


1.235 


21.028 


-.274 


13.474 


- 68.977 


1.236 


21.023 


- . 223 


13.478 


- 68.981 


1.236 


21.019 


-. 183 


13.483 


- 68.986 


1.237 


21.014 


-. 137 


13. 488 


- 68.991 


1.237 


21.009 


-.091 


13.492 


- 68.995 


1.238 


21.005 


-.046 


13.492 


- 68.995 


1.238 


21.005 


-. 046 


13.493 


- 68.996 


1.238 


21.004 


-.041 


13.493 


- 68.996 


1.238 


21. 004 


-.037 


13.494 


- 68. 997 


1.238 


21.003 


-.032 


13.494 


- 68. 997 


1.238 


21.003 


-.027 


13.495 


- 68.998 


1.238 


21.002 


-.023 


13.495 


- 68.998 


1.238 


21.002 


-.013 


13.496 


- 68.999 


1.238 


21.001 


-.014 


13.496 


- 68.999 


1.238 


21.001 


-.009 


13.497 


- 69.000 


1.239 


21. 000 


-. 005 


13.497 


- 69.000 


1.239 


21.000 


-.005 


13.497 


- 69.000 


1.239 


21.000 


-.004 


13.497 


- 69.000 


1.239 


21. 000 


-.004 


13. 497 


- 69.000 


1.239 


21.000 


-.003 


13. 497 


- 69.000 


1.239 


21.000 


-.003 


13.497 


- 69.000 


1.239 


21.000 


-.002 


13.497 


- 69.000 


1.239 


21.000 


-.002 


13.497 


- 69.000 


1.239 


21.000 


-.001 


13.497 


- 69.000 


1.239 


21.000 


-.001 


13.497 


- 69.000 


1.239 


21.000 


-.000 


4.848 


- 60.351 


0.000 


29.649 


- 40.591 


5.035 


- 60.538 


.064 


29. 462 


- 39.936 


5.235 


- 60.738 


. 129 


29.262 


- 39.332 


5 . 451 


- 60.954 


. 193 


29.046 


- 38.621 


5.685 


- 61. 187 


.257 


28.813 


- 37.846 


5.937 


- 61 . 440 


.322 


28.560 


- 37.000 


6.211 


- 61. 714 


.386 


28.286 


- 36.072 


6.508 


- 62.011 


.450 


27.989 


- 35.051 


6.332 


- 62.335 


.515 


27.665 


- 33.921 


7 . 186 


- 62.689 


.579 


27.311 


- 32.666 


7.572 


- 63.075 


.643 


26.925 


- 31.266 



122 



RAY 

23 

23 
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23 

25 

25 

25 
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23 

23 
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23 

23 

23 

23 

25 
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23 

23 

23 

23 

23 

23 

23 

23 

25 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 



TABLE A- VI (CONT) 



BETA THETA < RAY ) NORMAL S ALPHA 2 RHG 2 



- 40.391 


7.993 


- 63.498 


.708 


26.502 


- 29.693 


- 40.391 


3 . 453 


- 63.961 


.772 


26.039 


- 27.923 


- 40. 591 


3.964 


- 64.467 


.836 


23.333 


- 23.913 


- 40.391 


9.316 


- 65.019 


.901 


24.981 


- 23.620 


- 40.591 


10 . 115 


- 65. 618 


.963 


24.382 


- 20.988 


- 40.591 


10.760 


- 66 .263 


1.029 


23.737 


- 17.932 


- 40.591 


11.442 


- 66.945 


1.094 


23.035 


- 14.430 


- 40.591 


12. 147 


- 67.630 


1 . 153 


22.330 


- 10.331 


- 40.391 


12.347 


- 68.330 


1.222 


21.630 


- 5.554 


- 40.391 


13.497 


- 69.000 


1.287 


21.000 


-.000 


- 40.391 


12. 347 


- 68.350 


1.222 


21.650 


- 3.534 


- 40.591 


12.915 


- 68.418 


1.229 


21.582 


- 3.035 


- 40.591 


12. 983 


- 68. 486 


1.233 


21.314 


- 4.508 


- 40.591 


13.350 


- 63.353 


1.242 


21.447 


- 3.973 


- 40.591 


13 . 116 


- 68.619 


1.248 


21.331 


- 3.430 


- 40.391 


13. 182 


- 68.685 


1.254 


21.315 


- 2. 879 


- 40.391 


13.247 


- 68.730 


1.261 


21.230 


- 2.320 


- 40.391 


13.311 


- 68.814 


1.267 


21. 136 


- 1.733 


- 40.391 


13.374 


- 68.877 


1.274 


21.123 


- 1. 177 


- 40.591 


13.436 


- 68.939 


1.280 


21.361 


-.393 


- 40.391 


13.497 


- 69.000 


1. 287 


21.000 


-.000 


- 40.391 


13.436 


- 68.939 


1.230 


21.061 


-.593 


- 40.591 


13.442 


- 63.943 


1.231 


21.033 


-.334 


- 40.391 


13.448 


- 63.951 


1.282 


21.049 


-.473 


- 40.391 


13.434 


- 68.957 


1.282 


21.043 


-.416 


- 40.591 


13.460 


- 68.963 


1.283 


21.037 


-.357 


- 40.391 


13.467 


- 68.970 


1.283 


21.030 


-.297 


- 40.391 


13.473 


- 63.976 


1.284 


21.024 


-.233 


- 40.391 


13. 479 


- 68.982 


1.285 


21.018 


-. 179 


- 40.591 


13.483 


- 68.988 


1.283 


21.012 


-. 1 19 


- 40.591 


13.491 


- 68.994 


1.286 


21.006 


- . 060 


- 40.591 


13.491 


- 68.994 


1 . 286 


21.006 


-.060 


- 40.391 


13.492 


- 68.993 


1.286 


21.003 


-.054 


- 40.391 


13.492 


- 68.995 


1.286 


21.003 


-.048 


- 40.591 


13.493 


- 68.996 


1.286 


21.004 


-.042 


- 40.591 


13.493 


- 68.996 


1.286 


21.004 


-. 036 


- 40.391 


13.494 


- 68.997 


1.286 


21.003 


. -.030 


- 40.391 


13.495 


- 63.998 


1.286 


21.002 


-.024 


- 40.391 


13.493 


- 68.998 


1.286 


21.002 


-.018 


- 40.391 


13.496 


- 68.999 


1.287 


21.001 


-.012 


- 40.391 


13.496 


- 63.999 


1.287 


21.001 


-.006 


- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.000 


- 40.391 


13.496 


- 68.999 


1.287 


21.001 


-.006 


- 40.391 


13. 496 


- 68.999 


1.237 


21.001 


-.005 


- 40.391 


13.497 


- 69.000 


1. 287 


21.000 


-.005 


- 40.391 


13.497 


- 69.000 


1.287 


21.000 


-.004 



123 



RAY 

23 

25 

25 

25 

23 

23 

25 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 



TABLE A-VI (CONT) 



BETA THETA < RAY > NORMAL S ALPHA 2 RHO 2 



- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.004 


- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.003 


- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.002 


- 40.591 


13. 497 


- 69. 000 


1.237 


21.000 


-.002 


- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.001 


- 40.591 


13.497 


- 69.000 


1.287 


21.000 


-.001 


- 40.591 


13. 497 


- 69.000 


1.287 


21.000 


-.000 


- 44. 118 


3 . 740 


- 59.243 


0.000 


30.757 


- 44 . 1 IS 


- 44. 118 


3 . 899 


- 59.402 


.067 


30.398 


- 43.620 


- 44 . 118 


4.071 


- 59. 574 


. 133 


30.426 


- 43.076 


- 44 . 118 


4.259 


- 59.762 


.200 


30. 238 


- 42.482 


- 44 . 118 


4.483 


- 59.966 


.267 


30.034 


- 41.329 


- 44 . 118 


4 . 638 


- 60. 191 


.334 


29. 809 


- 41. 109 


- 44 . 118 


4 . 933 


- 60.438 


.400 


29.562 


- 40.310 


- 44. 1 18 


3.208 


- 60.711 


.467 


29.289 


- 39.420 


- 44. 1 18 


5.511 


- 61.014 


.534 


28.986 


- 38.423 


- 44. 118 


5.848 


- 61.351 


. 601 


28.649 


- 37. 298 


- 44 . 118 


6.226 


- 61.729 


.667 


28.271 


- 36.021 


- 44. 118 


6.650 


- 62. 153 


.734 


27.847 


- 34.339 


- 44. 113 


7 . 128 


- 62.631 


. S 01 


27.369 


- 32 . S 73 


- 44. 118 


7 . 669 


- 63. 172 


.868 


26.328 


- 30.909 


- 44. 118 


8.233 


- 63.786 


.934 


26.214 


- 28.600 


- 44. 118 


8.978 


- 64.481 


1.001 


25.519 


- 25.856 


- 44. 118 


9 . 763 


- 65.266 


1. 068 


24.734 


- 22. 556 


- 44. 113 


10.638 


- 66. 141 


1 . 134 


23. 859 


- 18.544 


- 44 . 118 


11.590 


- 67.092 


1.201 


22.908 


- 13.618 


- 44. 118 


12.574 


- 68. 077 


1. 268 


21. 923 


- 7.527 


- 44. 1 18 


11.590 


- 67.092 


1.201 


22.908 


- 13.613 


- 44. 118 


11.638 


- 67. 191 


1.208 


22.809 


- 13.066 


- 44. 118 


11.786 


- 67.289 


1.215 


22.711 


- 12.501 


- 44. 118 


11.834 


- 67.387 


1.221 


22.613 


- 11.925 


- 44. 1 18 


11.983 


- 67.486 


1.228 


22.514 


- 11.336 


- 44. 1 13 


12.082 


- 67.583 


1.235 


22. 413 


- 10.735 


- 44. 118 


12. 131 


- 67.684 


1.241 


22. 316 


- 10. 120 


- 44. 118 


12.279 


- 67.782 


1.248 


22.218 


- 9.492 


- 44 . 1 18 


12.378 


- 67.881 


1.255 


22 . 119 


.- 8.831 


- 44. 118 


12.476 


- 67.979 


1.261 


22.021 


- 8. 196 


- 44. 1 18 


12.574 


- 68.077 


1.263 


21.923 


- 7.527 


- 44 . 113 


12.671 


- 68. 174 


1.275 


21.826 


- 6.843 


- 44 . 1 18 


12.767 


- 68.270 


1.281 


21.730 


- 6. 145 


- 44. 118 


12.863 


- 68.366 


1.288 


21.634 


- 5. 431 


- 44. 118 


12.958 


- 68.461 


1.293 


21.339 


- 4. 703 


- 44. 1 18 


13.051 


- 68.554 


1.301 


21.446 


- 3. 959 


- 44. 1 18 


13. 144 


- 68. 647 


1.308 


21.353 


- 3. 199 


- 44. 118 


13.233 


- 68.738 


1.315 


21.262 


- 2.424 



124 



RAY 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 



TABLE A -VI (CONT) 



BETA 


THETA<RAY> 


NORMAL 


S 


ALPHA2 


RHO 2 


-44. 113 


13.324 


-68.827 


1.321 


21. 173 


-1.632 


-44. 118 


13.411 


-68.914 


1.328 


21.086 


-.824 


-44. 118 


13.324 


-63.827 


1.321 


21. 173 


-1.632 


-44. 118 


13.333 


-63. 836 


1.322 


21. 164 


-1.552 


-44. 118 


13.342 


-68.845 


1.323 


21. 155 


-1.472 


-44. 118 


13. 350 


-68.853 


1.323 


21. 147 


-1.392 


-44.118 


13.359 


-63.862 


1. 324 


21. 138 


-1.311 


-44. 118 


13.368 


-63.871 


1.325 


21. 129 


-1.230 


-44. 113 


13.37? 


-63.880 


1.325 


21. 120 


-1. 149 


-44. 118 


13.385 


-68.388 


1. 326 


21.112 


-1.063 


-44. 1 18 


13.394 


-68.397 


1.327 


21. 103 


-.987 


-44. 118 


13.403 


-68. 906 


1.327 


21.094 


-. 906 


-44. 118 


13.411 


-68.914 


1.328 


21.086 


-.824 


-44. 1 18 


13.420 


-63.923 


1.329 


21.077 


-.743 


-44. 1 18 


13.429 


-68.932 


1.329 


21.063 


-.661 


-44. 118 


13.437 


-68.940 


1.330 


21.060 


-.579 


-44. 118 


13.446 


-68.949 


1.331 


21.051 


-.497 


-44. 118 


13.455 


-63.957 


1.331 


21.043 


-.414 


-44. 1 18 


13.463 


-68.966 


1. 332 


21.034 


-.332 


-44. 118 


13. 472 


-68.975 


1.333 


21.025 


-.249 


-44. 118 


13.480 


-68.983 . 


1.333 • 


21.017 


-. 166 


-44.113 


13.489 


-68.992 


1.334 


21.003 


-.083 


-44. 113 


13.480 


-68.983 


1.333 


21.017 


-.166 


-44. 118 


13. 431 


-68.984 


1.333 


21.016 


-. 153 


-44. 118 


13. 482 


-63.985 


1.333 


21.015 


-. 150 


-44. 113 


13.483 


-68.986 


1.334 


21.014 


-. 141 


-44. 118 


13. 483 


-68.986 


1.334 


21.014 


-. 133 


-44. 118 


13.484 


-68.987 


1.334 


21.013 


-. 125 


-44. 118 


13.485 


-68.988 


1.334 


21.012 


-. 116 


-44.118 


13.486 


-68.989 


1.334 


21.011 


-. 108 


-44.118 


13.487 


-68.990 


1.334 


21.010 


-. 100 


-44. 118 


13.488 


-68.991 


1.334 


21.009 


-. 091 


-44.118 


13.489 


-68.992 


1.334 


21.008 


-.083 


-44. 118 


13.489 


-68.992 


1.334 


21.008 


-.075 


-44. 118 


13.490 


-68.993 


1.334 


21.007 


-. 067 


-44. 118 


13. 491 


-68.994 


1.334 


21.006 


-.058 


-44. 118 


13.492 


-68.995 


1.334 


21.005 


-.050 


-44. 118 


13.493 


-68.996 


1.334 


21.004 


* -.042 


-44.118 


13.494 


-68.997 


1.334 


21.003 


-.033 


-44. 118 


13.495 


-68.997 


1.334 


21.003 


-.025 


-44. 113 


13.495 


-63. 998 


1.335 


21.002 


-.017 


-44. 118 


13.496 


-68. 999 


1.335 


21.001 


-.008 


-44. 118 


13.496 


-68.999 


1.335 


21.001 


-.008 


-44. 118 


13.496 


-68.999 


1.335 


21. 001 


-. 007 


-44. 118 


13.496 


-68.999 


1.335 


21.001 


-.007 


-44. 118 


13. 496 


-68.999 


1.335 


21.001 


-.006 



\ 
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TABLE A-VI (CONT) 



RflY 


BETA 


THETA<RAY> 


NORMAL 


S 


ALPHA2 


RHO 2 


26 


-44. 118 


13.497 


-63.999 


1.335 


21.001 


-.005 


26 


-44. 118 


13.497 


-69.000 


1.335 


21.000 


-.904 


26 


-44. 113 


13.497 


-69.000 


1.335 


21.000 


-.003 


26 


-44. 118 


13.497 


-69.000 


1.335 


21.000 


-.002 


26 


-44. 118 


13.497 


-69.000 


1.335 


21.000 


-.002 


26 


-44. 118 


13.497 


-69.000 


1.335 


21.000 


-.001 
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TABLE A- VI I 



COORDINATE (X,Y) VALUES, S, ALPHA2 AND RH02 
FOR THE FINAL DESIGN OF SURFACE NUMBER 1 IN 
FIGURE 20 



B.gi n 

RAY 


Next 

RAY 


Xsurf 
(next ) 


Ysurf 
(next ) 


S 

(next ) 


fllpha2 
(next ) 


RHO 2 
(next > 


1 


1 


.362 


.000 


. 133 


21.000 


-.000 


1 


2 


.463 


.040 


.133 


21 . 066 


-.642 


1 


3 


.563 


.079 


. 133 


21. 139 


-1. 324 


1 


4 


.671 


. 119 


. 133 


21.220 


-2.030 


1 


3 


.774 


. 139 


. 133 


21.309 


-2. 324 


1 


6 


.877 


. 199 


. 132 


21. 408 


-3. 630 


1 


7 


.980 


.239 


. 131 


21 .318 


-4. 334 


1 


3 


1.082 


.280 


. 130 


21.640 


-5.480 


1 


9 


1. 183 


.321 


. 129 


21.778 


-6.496 


1 


10 


1.237 


.361 


. 127 


21.932 


-7.589 


1 


1 1 


1.389 


.403 


. 126 


22. 106 


-8.763 


1 


12 


1.491 


. 444 


. 123 


22.303 


-10.033 


1 


13 


1.593 


. 486 


. 121 


22.526 


-11. 407 


1 


14 


1.694 


.528 


. 118 


22.779 


-12.892 


1 


13 


1.796 


.570 


. 114 


23.068 


-14.503 


1 


16 


1.396 


.613 


. 110 


23. 399 


-16.251 


1 


17 


1.997 


.657 


. 103 


23.778 


-18. 150 


1 


18 


2. 097 


.701 


. 100 


24.213 


-20.213 


1 


19 


2. 197 


.746 


.094 


24.712 


-22. 460 


1 


20 


2.296 


. 791 


.036 


25.286 


-24.899 


1 


21 


2.394 


.338 


.073 


25.943 


-27.543 


1 


22 


2.492 


.385 


.063 


26.693 


-30.408 


1 


23 


2.589 


.934 


. 037 


27.343 


-33.492 


1 


24 


2.685 


.984 


. 043 


23.300 


-36.797 


1 


23 


2.780 


1.035 


. 030 


29.563 


-40.313 


1 


26 


2.873 


1.089 


.014 


30. 723 


-44.019 
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TABLE A-VIII 



COORDINATE VALUES (X,Y) FOR THE RAY DIAGRAM IN FIGURE 22 



RflY 


X 0 


Y 0 


XI 


Y 1 


X 2 


Y 2 


Xc 


Yc 


x4 


Y4 


1 


0 


. 110 


.237 


. 1 10 


.362 


.000 


4.000 


0.0 


50 . O 0 


-.00 


2 


0 


. 150 


.390 


. 150 


.465 


. 040 


4 . 000 


0.0 


50.00 


-.52 


3 


0 


. 139 


. 493 


. 139 


.563 


.079 


4.000 


0.0 


50.00 


- 1.06 


4 


0 


.229 


.596 


.229 


.671 


. 119 


4.000 


0 . 0 


50 . 00 


- 1.65 


5 


0 


.263 


.699 


.263 


. 774 


. 159 


4.000 


0.0 


50.00 


- 2 . 27 


6 


0 


.303 


.382 


.303 


.377 


. 199 


4.000 


0 . 0 


50 . 00 


- 2.93 


7 


0 


.348 


.906 


.343 


. 980 


. 239 


4.000 


0.0 


50.00 


- 3.65 


3 


0 


.337 


1.009 


.337 


1.032 


.230 


4.000 


0.0 


50.00 


- 4.41 


9 


0 


.427 


1.112 


.427 


1 . 185 


. 321 


4.000 


0.0 


50.00 


- 5.24 


10 


0 


.466 


1.215 


.466 


1.237 


.361 


4.000 


0.0 


50.00 


- 6 . 13 


11 


0 


.506 


1.313 


.506 


1.339 


. 403 


4.000 


0.0 


50.00 


- 7. 09 


12 


0 


.546 


1.421 


.546 


1.491 


.444 


4.000 


0.0 


50.00 


- 8 . 14 


13 


0 


. 535 . 


1.524 


. 535 


1.593 


.436 


4.000 


0.0 


50.00 


- 9.23 


14 


0 


.625 


1.623 


.625 


1.694 


.523 


4.000 


0 . 0 


50.00 


- 10.53 


13 


0 


. 664 


1.731 


. 66 4 


1.796 


.570 


4.000 


0.0 


50.00 


- 11. 90 


16 


0 


.704 


1.334 


.704 


1.396 


.613 


4.000 


0.0 


50.00 


- 13.41 


17 


0 


.744 


1.937 


. 744 


1.997 


.657 


4.000 


0.0 


50.00 


- 15.03 


13 


0 


.733 


2 . 040 


.733 


2.097 


.701 


4.000 


0.0 


50.00 


- 16.94 


19 


0 


.323 


2 . 143 


.323 


2 . 197 


.746 


4.000 


0.0 


50.00 


- 19.02 


20 


0 


.362 


2.247 


.362 


2.296 


.791 


4.000 


0.0 


50.00 


- 21.35 


21 


0 


.902 


2.350 


.902 


2.394 


.333 


4.000 


0.0 


50.00 


- 23.99 


22 


0 


.942 


2.453 


.942 


2.492 


.335 


4.000 


0.0 


50.00 


- 27.00 


23 


0 


.931 


2.556 


.931 


2.539 


.934 


4.000 


0.0 


50.00 


- 30. 44 


24 


0 


1.021 


2.659 


1.021 


2.685 


.984 


4.000 


0.0 


50.00 


- 34.41 


25 


0 


1.060 


2.762 


1. 060 


2.730 


1.035 


4.000 


0.0 


50.00 


- 39.03 


26 


0 


l . 100 


2.366 


1 . 100 


2.373 


1.039 


4.000 


0.0 


50.00 


- 44.45 
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CHART PROGRAM LISTING 



♦ ♦ H *******************************************************************' 1 

* * " 

* CHART *" 

* + *' 



j 

COM fll pha, T al pha, Rho , Trho , Rho_i n i 1 1 al , Trhoi ,Rhol, Trhoi, R ho 2,Trho2 
COM F, Z3, 24, Norm, Thetai , Tdel ta 

COM Date*, Plot*, Farm 1 y* , Chart * , Mai n* , Mai n 1 S , F 1 ag* , Y_har d* 

COM Stuff$,Redraw$,Digitire$, Ray_ trace* 

COM INTEGER I , J , Y0_1 oop , Hr ay , Nr ay_c hart , Nr ay_f arm 1 y , Nr ay_2 t uf f 
COM INTEGER Nr ay_ trace, Nray_dens 1 t y, Add_ray , Nc , Ns, Nbet a, FI ag 

i 

COM INTEGER Line count, Line_ max, N_ increment, Hit total, Pselect,Hpib 
COM INTEGER Family , Surf_no 

COM REAL Thetaj’.n t i cal , Tol , N1 , N2, N3, Dal ta_ r ay , YO, Ya, Yb, Aperture 

j 

COM Y_ bu 1 1 et , $max_f am i 1 y , Par c ent_i mage 

COM x7<25 1 > , Y 1 <2ST> , Xc < 25 1 ) , X2< 25 1 ) , Y2<25 1 > , X2max < 25 1 > , Y2max < 25 1 } 

COM Y3 <251), Y4<251>,Beta<251>, S2<251), Xsurf max <25 l),Ysurfmax<251 > 

i 

COM Qa<251),Smax<251),Alpha2<251),Rho2<251),Hi t<2001) 

i 

Mai n$*" Y" ! SET CONDITION 

DISP " " 

PRINTER IS IS 
NORMAL 
FIXED 2 
PRINT PAGE 
OVERLAP 
Y$*“0 m 

INPUT "SERIAL OR OVERLAP FOR I/O PROCESSING < DEFAULT=OVERLAP > ? S/0",Y* 

IF <Y**"S") OR CYS^'s") THEN SERIAL 
CALL Dialogue 
DEG 

PRINT PAGE," When entering values for Smax in CHART please enter reaso 



400 
nabl e" 

410 PRINT "values. This is required because the hori rental axis for CHART is 

di vi ded" 



420 

430 

440 

450 

460 

470 

480 

490 

rd* 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 



PRINT "into 10 intervals. The program takes your entry for Smax" 

PRINT "and divides by 10 to determine the tick spacing. The vertical " 
PRINT "tick marks are under program control , enter anything you wish." 
PRINT LIN<2>, "PRESS CONT" 

PAUSE 

PRINT PAGE 

Gymnastics: Y hard#*"N" 

INPUT "DO TOU WANT A HARD COPY OF THE COMPUTED DATA? Y / N " , Y_h a 

GOSUB Yhard 
CALL Header 
GOSUB Printer 
CALL Header end 
PRINT L IN <2) 

Mai n$="N " ! RESET CONDITION 

Header: DISP " WORKING ..." 

Initial i ze_run : Flag=0 • RESET CONDITION 

Y0_mi n=Ya*<Tal pha- Trhoi ;/Talpha 
Y0 max=Yb*<Tal pha-Trhoi )/Talpha 

XnrayaNray ! AVOIDS MIXED MODE ARITHMETIC 

Del y=<Y0_max-Y0_mi n)/Xnray 
Y0 m l n*Y0_m i n-De 1 y 

IF Y a*0 THEN YO_mi n*YO_m l n + De 1 y 
Nr ay * Nr ay ♦ A d d_r ay 
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6 50 
660 
670 
680 
690 

700 Y0 loop 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 One: 

810 
820 Next y0 
330 

P", Plots 

840 

850 

FRULT = 7 ) 
860 

EFRULT = 5 
370 Chart: 
880 
890 
900 
910 
920 
r '* 

930 
940 
950 

u 

960 
970 
980 
990 

CRREFUL 
1000 
1010 



Ns 3 0 
Nc =0 

X l ( Ns ) =0 
Y 1 < Ns ) =0 
Bet a(0)=0 

FOR Y0_1 oop= 1 TO Nray 



! COUNTER FOR THE (X,Y) RRRRY 



! COMPUTE THE INTERCEPT OF THE INCIDENT 
! RND THE FIRST SURFACE 
! AVOIDS MIXED MODE ARITHMETIC 
! RESET FLAG 



Xy0_l oop=*Y0_l oop 
F 1 ag = 0 
X = 0 

Rho=Rho initial 
T rho*TAN( Rho ) 

Y s Y0_m in+Dely*Xy0_loop 
Ns s Ns+ 1 
Y 1 (Ns ) =Y 
CALL X 1 pos ( X , Y) 

1 < N s > = X 

_loop: NEXT Y0 — loop 

INPUT "ARE YOU USING THE CRT (C) OR THE 9872A PLOTTER 



<P 



C/ 



IF (P 1 ot S*"C" > OR (Plot*="c") THEN Chart 
INPUT "PLEASE ENTER THE SELECT CODE OF THE GRAPHICS DEVICE (DE 
. " , Pse 1 ec t 

INPUT "PLEASE ENTER THE HPIB ADDRESS OF THE GRAPHICS DEVICE <D 
). " ,Hpib 
CALL Chart 
GOSUB Yhard end 
PRINT LIN<27, "PRESS CONT " 

PAUSE 

PRINT 

PRINT PAGE," If the scale you hawe chosen did not allow the compute 

PRINT "to number all of the curwes you may do so manually by " 

PRINT "answering yes (Y) to the next prompt." 

PRINT LINO)," If your answere is yes, the graphics display of the 

PRINT "plot will come on and a cursor will be in the lower left" 

PRINT "corner. Position the cursor by using the DISPLAY" 

PRINT "controls. The letter or number will be drawn with i t. s " 

PRINT " left s i de over the center of the cursor. You MUST BE 

PRINT "because mistakes are difficult, if not impossible to erase" 
PRINT "(consult the graphics rom manual (page 91) to erase a letter). 



1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1 150 
1160 
1170 
1180 
1190 

1200 Rerun 
1210 
1220 
1230 - 

1240 



PRINT LIN(2)," When you have completed all of your lettering," 
PRINT "PRESS CONT. " 

PRINT LIN(2), "PRESS CONT" 

PAUSE 

PRINT PAGE 
Y$a"N" 

INPUT "DO YOU WANT TO NUMBER ANY OF THE CURVES ? Y/N",Y* 

IF (Y$*"Y") OR (Y*="y") THEN CSI2E 2.5 
IF (Y$s"Y“) OR (Y S»"y") THEN LETTER 
IF ( Y $ * " Y " ) OR (Y*="y") THEN CSI2E 15/4.54 
IF <Yf="Y") OR ( Yf ="y" ) THEN EXIT GRAPHICS 
Dump crtls M N" 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N" , Dump_crt S 
IF (Dump_crt*="Y" ) OR (Dump_crt **"y " ) THEN GOSUB Printer 
FI ag 3 0 ! RESET CONDITION 

Y $ - " N " 

INPUT "DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y/N 
IF (Y* = "Y"> OR ( Y S = " y " ) THEN Chart 
PRINTER IS 16 
PRINT PAGE 
Y $ a " N " 

INPUT "ARE YOU GOING TO MAKE ANY MOPE RUNS"* Y/N" ,Y$ 

IF (Y*3"N"> OR (Y$*"n" ) THEN Family 



Y S 
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1250 Rerun2: Change*="N" 

1260 INPUT "ARE YOU GOING TO CHANGE ANY PARAMETERS < n2 , n3 , A 1 pha, Nr ay , OR 

RHO-INITIAL) ? Y/N", Change* 

1270 IF (Change**"N" ) OR ( Changes* " n " ) THEN Gymnastics 

1280 GOSUB Printer 

1290 INPUT "WHAT IS THE NEW VALUE OF RHO-INITIAL ? " , Rho_i n i l i a 1 

1300 Rho_i n i t i al *- 1 *ABS ( Rho_ initial) 

1310 Trho i *TAN( Rho initial) 

1320 INPUT "WHAT IS THE NEW VALUE OF ALPHA? " , A 1 pha 

1330 Tal pha=TAN( A1 pha) 

1340 N2: INPUT "WHAT IS THE NEW VALUE OF n2?", N2 

1350 INPUT "WHAT IS THE NEW VALUE OF n3?", N3 

1360 IF N3 >N2 THEN BEEP 

1370 IF N3 >N2 THEN DISP "n3 MUST BE < n2, PLEASE RE-ENTER THE VALUES 



1380 IF N3>N2 THEN WAIT 25O0 

1390 IF N3 >N2 THEN N2 

1400 IF N3< N2 THEN Thet a_cr i t i c al =ASN(N3/N2> 

1410 Ya: INPUT "WHAT IS THE NEW VALUE OF Ya (INCHES) ?" ,Ya 

1420 INPUT "WHAT IS THE NEW VALUE OF Yb (INCHES) ?",Yb 

1430 IF Ya>*Yb THEN BEEP 

1440 IF Ya>=Yb THEN DISP "Ya MUST BE < Yb J PLEASE RE-ENTER THE VALUE 

S M 

1450 IF Ya>*Yb THEN WAIT 2500 

1460 IF Ya>*Yb THEN Ya 

1470 Apert ure®Yb-Ya 

1480 Y bullet: INPUT " WHAT IS THE NEW VALUE OF Y_bullet ( MUST BE > Yb ) ?" , Y_bu 
Met 

1490 IF Y bul 1 et <Yb THEN BEEP 

1500 IF Y~bu 1 1 et < Yb THEN DISP "Y_bul 1 et MUST BE > Yb : PLEASE RE-ENT 

ER Y bullet.'* 

1510~ IF Y bul 1 et < Yb THEN WAIT 2500 

1520 IF Y~bullet<Yb THEN Y_bullei 

1530 INPUT "WHAT IS THE NEW VALUE OF THE No. OF RAYS ?",Nray 

1540 INPUT "WHAT IS THE NEW VALUE OF FOCUS (INCHES) ?",F 

1550 GOTO Gymnastics 

1560 Family: Family$="N" 

1570 PRINTER IS 16 

1580 INPUT "DO YOU WANT TO DRAW A FAMILY OF SURFACES FROM THE DESIGN CHA 

RT ? Y/N" ,Fami ly* 

1590 IF (Fami 1 y# *"N" ) OR (Fami 1 yf*“n" ) THEN Finished 

1600 Fami: PRINT PAGE," Xmax is the maximum length along the GLM axis which y 

ou" 



1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

Y# 

1770 

1780 

1790 

1800 

hard# 

1810 

1820 



PRINT "want to be displayed." 

PRINT " A rule of theumb is to add one inch to the focal length." 
PRINT "For example: if the Focal length is 4 inches, key in 5 and" 
PRINT "PRESS CONT." 

PRINT LIN(2) , "PRESS CONT" 

PAUSE 

Y hard**"N" 

INPUT "DO YOU WANT A HARD COPY OF THE COMPUTED DATA ? Y/N",Y_hard* 
IF (Y hard*®" Y" ) OR (Y hard*»"y" ) THEN GOSUB Yhard 
CALL Family 
GOSUB Yhard_end 
Dump crt$3"N" 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N » , Dump_c r t * 

IF (Dump crt*="Y") OR (Dump crt*="y") THEN GOSUB Printer 
Y$*"N“ 

INPUT "DO YOU WANT TO DRAW THE PLOT USING A DIFFERENT SCALE ? Y/N", 



IF ( Y * = " Y " ) OR ( Y $ = " y " ) THEN Fami 
Mainl*»"Y" ! SET CONDITION 

Y_hard**"N M 

INPUT "DO YOU WANT A HARD COPY OF QA , Smax , A 1 pha2 and Rho2 ? Y/N" ,Y 

GOSUB Yhard 
CALL Header 
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1830 FOR 1*1 TO Nray 

1340 IF L i ne_ count >L i ne_max THEN CALL Header 

1850 PRINT USING 1 370 ; I , Qa( I ) , Smax < I ) , A 1 phaZ < I ) , Rho2 < I) 

1880 Line count=Line count+l 

1870 IMAGE 14X,DDD,4~5X,DDD.DDD) 

1880 NEXT I 

1890 CALL Header_end 

1900 GOSUB Vhard~end 

1910 PRINT LIN< 10), "PRESS CONT" 

1920 Mainl*="N" ! RESET CONDITION 

1930 PAUSE 

1940 Stuff: PRINTER IS 16 

1950 PRINT PAGE," Please study the display and choose the surface" 

1960 PRINT "which you want to use to generate a final surface." 

1970 PRINT " When you haue decided which surface to use, PRESS CONT" 

1980 PRINT LIN<1)," Key in the number of the surface you want to use" 

1990 PRINT "in response to the prompt." 

2000 PRINT LINO)," The computer will then determine the aperture of " 

2010 PRINT "the surface and trace 250 rays through the aperture. " 

2020 PRINT LINO)," When you are ready to proceed PRESS CONT." 

2030 PAUSE 

2040 GRAPHICS ! IF A NOTE TO OPERATOR IS DESIRED, THEN ENTER SETGU , 

2050 WAIT 2500 ! LORG 2, MOVE 2,2 ,CSIZE 2.5 , LABEL "PRESS CONT WHEN 

2060 BEEP ! READY" , SETGU CSIZE 15/4.54 AFTER THE SECOND BEEP 

2070 WAIT 250 

2030 BEEP 

2090 PAUSE 

2100 EXIT GRAPHICS 

2110 INPUT "WHICH SURFACE 0,2, 3, etc.) ?", Family 

2120 Fami 1y=INT<Fami 1 y) 

2130 IF Fam i 1 y< =0 THEN Fami1y=l 

2140 IF Fam i 1 y >Nray_ f am i 1 y THEN Family*Nray family 

2150 DISP "WORKING .. 7 " 

2160 Re_stuff: CALL Stuff 

2170 GOSUB Yhard_end 

2180 Dump_crt $="N"~ 

2190 INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N " , Dump crtS 

2200 IF <Dump_crt*»"Y") OR < Dump_c rt **" y " ) THEN GOSUB Printer 

2210 F 1 ag=0 ! RESET CONDITION 

2220 Redr aw$=" N " 

2230 INPUT "DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y/N", Re 

drauf 



2240 IF (Redraws*" Y" ) OR < RedrawS*"y " ) THEN Re_stuff 

2250 Stuff trace: Y$*"N" 

2260 ~ INPUT "DO YOU WANT TO TRACE RAYS THROUGH THE COMPUTED SURFACE ? 



Y/N“,Y$ 

2270 

2230 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

rdf 



IF <YS*"N M ) OR <Y**"n") THEN Rerun3 
DISP "WORK IN'' ON THE RAY TRACE DATA..." 

FOR Y0_loop*l TO Nr ay_ stuff 
Surf _no=3 

Rho2*Rho2 < Y0_1 oop) 

X-X2CY0 loop) 

Y»Y2<Y0~loop) 

CALL Binary search<X,Y) 

Y3 < Y0 loop ) * Y™* 

X*23 

Surf_ no*4 

CALL Binary search<X,Y) 

Y4< Y0 loop)=Y~ 

NEXT Y0“loop 

Nray_ t race *Nray_s tuff 

Ray_tracel 3 "Y" 

BEEP 

Yt»"N H 

INPUT "DO YOU WANT A HARD COPY OF THE PAY TRACE DATA ? Y/N",Y ha 



2460 



GOSUB Yhard 
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2470 CALL Header 

2480 Stuf f_tracel : FOR 1 = 1 TO Nray_ stuff 

2490 IF Line^couru >Line_max THEN CALL Header 

2300 PRINT USING 2510*, 1 , 0, V 1 ( I > , XI < I) , Yl ( I ) , X2( I ) , Y2( I > , Xc ( I) , 0, 24, 

Y4< I ) 

2510 IMAGE DDD, 2X, D, 3(2X, DD. DDD , 3X , DD . DDD ) , 2X , D . D , 3X , DD . DD , 3X , 4D . 2D 

2320 Li ne_count =L i ne count+1 

2330 NEXT I 

2540 CALL Header_*nd 

2330 GOSUB Yhar d_end 

2360 PRINT LIN(2) , "PRESS CONT" 

2570 BEEP 

2380 PAUSE 

2590 Re graph: CALL Graph 

2600 ” Redraw$*"N" 

2610 INPUT " DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y / N " , R e 

dr awf 

2620 IF (Redraw* 3 " Y" ) OR <Redraw*="y " ) THEN Re_graph 

2630 Density: PRINTER IS 16 

2640 PRINT PAGE," The point of maximum ray density is determined by yo 

u vi sual 1 y . " 

2650 PRINT "by placing the cross-hairs (they Mill appear automatically) 



2660 PRINT "over the position of maximum ray density." 

2670 PRINT " This is accomplished by using the D I SPLAY controls (up 

, down, <-,->). " 



2630 

HIFT button" 
2690 

1 ay cont ro 1 " 

2700 

2710 

2720 

2730 

2740 



PRINT "When you the get cursor in the area of interest, use the 3^ 

PRINT "with the D I SPLAY controls (both the shift button and disp 

PRINT "should be depressed simultaneously) for fine posit ioing." 
PRINT LIN(2)," The position of the vertical hair is critical," 
PRINT "because its location is used for the position of the " 
PRINT "image plane (Z3) on the GLM axis." 

PRINT LIN(2 ) , " CAUT I ON : Do not let the image plane intercept any 



rays" 

2730 

2760 

2770 

2780 

2790 

2800 

2810 

2320 

2830 

2840 

2830 

2860 

2370 

2830 

2890 

2900 

2910 

2920 

2930 Dense: 

2940 

2930 

2960 

2970 

2980 Denser: 
2990 

LANE ? Y/N", 

3000 

3010 

3020 

3030 Rerun3: 



PRINT "in the interior of the lens. If this is done, those rays" 
PRINT "will be included in the histogram." 

PRINT LIN(2) , "PRESS CONT" 

PAUSE 

PRINT PAGE," The histogram is an illustration of the density" 
PRINT "of the rays that intercept the image plane versus radial " 
PRINT "distance from the GLM axis." 

PRINT LIN(2)," When the position has been located, PRESS CONT." 
PRINT LIN(2), "PRESS CONT" 

PAUSE 

Di gi X i zeS="Y" 

CALL Graph 

IF Plot$*"P" THEN Dense ! P FOR HP-9872 PLOTTER 
Dump crt*»"N" 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump crtl 
IF (Dump crt$="Y" ) OR (Dump crt*="y") THEN GOSUB Printer 
PRINT PAGE* 

DISP " WORK I N ' ON THE HISTOGRAM..." 

CALL Density ! PRODUSE A HISTOGRAM OF THE RAY DENSITY 

IF Plot*="P" THEN Denser 
Digit izef="N" ! RESET CONDITION 

INPUT "DO YOU WANT A HARD COPY OF HISTOGRAM ? Y/N " , Dump_c r t S 
IF (Dump_crt * 3 "Y" ) OR (Dump_crt $="y" ) THEN GOSUB Printer 
Y * = " N " 

INPUT "DO YOU WANT TO REDRAW THE HISTOGRAM FOR A DIFFERENT IMAGE P 

S 

IF ( YS= " Y" ) OR ( Y * = " y " ) THEN Flag=0 
IF (Y#*"Y") OR ( Y f = " y " ) THEN Re_graph 
Ray_ t rac ef = "N " 

Y $ * " N " 



3040 



INPUT "DO YOU WANT TO TRY ANOTHER SURFACE (THIS MEANS STARTING OVER 
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> ? y/N M ,v$ 

3830 IF ( Y $ = " Y " ) OR (Y$="y") THEN Main 

3060 GOTO Finished 



3070 Printer:PRINTER IS 16 

3080 IF (Change J="Y") OR ( Change* = "y." ) THEN Y_h ard*="N " 

3090 IF ( Dump crtl="V") OR (Dump crt**"y") THEN Y hard$= M Y" 

3100 IF ( Y_hardS*" Y " > OR ( Y_hard?="y " ) THEN PRINTER IS 0 

3110 IF (Y_hard*=" Y" ) OR ( Y_hard *»"y " ) THEN PRINT CHR* ( 27 ) Sc " Sd 00T " 

3120 IF ( Dump_c r t * = " Y" > OR (Dump_crt * = "y" ) THEN Crt 

3130 FIXED 0 

3140 FIXED 2 

3130 IF Dat e$=" " THEN 3170 

3160 PRINT " DATE : ";DateS 

3170 PRINT LINCl), "Alpha = R 1 pha; " degrees '* ; TRB ( 48 );" Rho- i n 1 1 i al = ";R 

ho initial 

3180 PRINT "TAN( R 1 pha) * " ; Tal pha; TRB ( 43 ) ; " TAN ( RHO- I N I T I AL) * ";Trhoi 

3190 PRINT LINO), " RH01 = " ; Rhol ; "degrees** ; TAB<48> ; "Theta(cr i t i cal ) = " 

; Thet a_c r i tical; "degrees" 

3200 PRINT L I N( 1 ) , " GLM Radius = " ; Y_bu 1 1 e t ; " i nc hes " 

3210 PRINT "Aperture = " ; Aper t ur e ; TAB ( 24 ) ; " Ya = " ; Ya; " i nc h ■ ; TAB < 48 ) ; " Yb 



* " ; Yb; "inches" 



3220 

3230 

3240 

3238 

3260 

3270 

3280 

3290 Crt: 

3300 

3310 

3320 

3330 

3340 

3330 

3368 Yhard 

3378 

3380 

3390 

3400 



FIXED 5 

PRINT LINO), 11 nl = " ; N1 ; TAB( 24) ; "n2 = " ; N2 ; TAB ( 48 ) ; " n3 " J N3 
FIXED 0 

PRINT LI N( 1 ), "Number of Rays * ";Nray 
FIXED 2 

PRINT LINO), "Design Focal Point * ";F;" inches" 

PRINT 

IF (Dump_crt**"Y") OR (Dump crtf="y") THEN DUMP GRAPHICS 
IF ( Y_hard*="Y" ) OR ( Y_hard*="y" ) THEN PRINT CHRS(27)Sc"Sc 
IF (Dump crtl a "Y") OR (Dump_crt *="y " ) THEN PRINTER IS 16 
Change*=»"N" ! RESET CONDITION 

Dump_ crt f»"N" 

Y_hard$ s "N" 

RETURN 

: IF (Y hard$*"Y") OR (Y hard$*"y") THEN Flag*="l" 

IF <Y~hard*="N" ) OR ( Y~hard*= "n " ) THEN Flag**"0" 

IF FI agS=" 1 " THEN PRINTER IS 0 

IF FI ag$ = " 1 " THEN PRINT CHR*<27)$."&100T" 

RETURN 



1 36T " 



3410 Yhard_end: IF FlagS="l" THEN PRINT CHRS ( 27 ) 8. " 8. 1 36T" 

3420 IF FI ag$=" 1 " THEN PRINTER IS 16 

3430 RETURN 

3440 Finished: DISP "FINISHED" 

3430 END 

3468 SUB Sne 1 1 
3470 OPTION BASE 0 
3480 ! 

3490 COM Alpha,Talpha,Rho,Trho, Rho_i nit i al ,Trhoi ,Rhol,Trhol,Rho2,Trho2 

3308 COM F,23,24,Norm,Thetai ,Tdel ta 

3510 COM Dat eS , P 1 otX, Fam i 1 yf, Chart *, Mai nl, Mai n 1 S, F 1 ag*, Y hard* 

3520 ! 

3330 COM St uff$ , Redraws , Di g i t i ze$, Ray_trac eS 

3340 COM INTEGER I , J , Y0_1 oop , Nr ay , Nr ay_c har t , Nr ay_f am i 1 y , Nr ay_ st uf f 
3338 COM INTEGER Nray trace, Nray density, Add r ay , Nc , Ns , Nbet a, FI ag 
3360 ! 

3570 COM INTEGER L i ne_c ount , L i ne_max , N i nc rement , H i t_t ot al , Pse 1 ec t , Hp i b 
3580 COM INTEGER F am i Ty , Surf_no 

3390 COM REAL Theta c r i 1 1 c al , To 1 , N 1 , N2 , N3, De 1 1 a ray , Y0, Ya, Yb, Apert ure 
3600 ! 

3610 DEG 



3620 One: Thet ai *90-( A 1 ph a+ABS ( Rho ) ) ! RHO MUST BE DECLARED ELESWHERE 

3638 Alpha2*Alpha 

3640 Norm»A 1 pha2-90 

3630 Sin_iprime»Nl/N2*SIN(Thetai ) 

3660 * Thet ar»ASN( S i n_i pr i me) 

3670 Rhol=Alpha2+Thetar-90 ! USE ALPHA2 INSTEAD OF NORM BECAUSE THE 
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! SIGN OF THE . ANGLE IS DESIRED 



3680 

3690 Trho t*TAN<Rhol) 

3700 SUBEND 
3710 SUB Plot 



OPTION BfiSE 0 

j 

COM A1pha,Talpha.Rho,Trho, Rho_i ni t i al , Trhoi ,Rhol, Trhol,Rho2,Trho2 
COM F , Z3, Z4 , Norm , Thet ai , Tde 1 t a 

COM Dat e * , P 1 ot $ , Fam i 1 yS , Char t S , Mai n$,Mainl$,F1ag.l, Y_hard$ 

COM Stuff*,Redraw$,Digiti::e*, Ray^tncel 

COM INTEGER I , J , Y0_1 oop , Nr ay , Nray_c hart , Nray_f am i 1 y , Nray_ st uf f 
COM INTEGER Nray_trace, Nray_densi ty , Add_ ray, Nc , Ns, Nbet a, FI ag 

i 

COM INTEGER Li ne_count , Li ne — max, N_ increment, Hit _tot a 1 , Pse 1 ec t , Hp i b 
COM INTEGER F am i 1 y , Sur f_no 

COM REAL Theta^cri tical ,To1 , N 1 , N2 , N3 , De 1 ta_ray, Y0,Ya,Yb, Aperture 

COM Y_bu 1 1 et , Smax — f am i ly,Percent_ image 

COM x7(*), Yl(*),Xc(*),X2(*), Y2(*7,X2max(*), Y2max(*> 

COM Y3(*) , Y4(*), Beta(*),$2(*),Xsurfmax(*) , Ysurfmax(*) 

i 

COM Qa< * ) , Smax ( *> , A1 pha2(*) , Rho2(*) , Hi t (*> 

THE ORIGINAL OF THIS ROUTINE WAS OBTAINED FROM THE HP UTILITIES LIBRARY 
9845B UTILITY LIBRARY 
PROGRAM CARTRIDGE 2 
09845-10205 
PROGRAM REGPLT 

SUB LAXES WAS ALSO BORROWED FROM THE LIBRARY 

THIS ROUTINE IS USED TO SET UP THE L I M I T , LOCATE , SCALE AND CLIP STATE 



3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
MENT 
4000 
4010 
4020 
4030 
4040 
4050 
4060 

4070 FI aga*Fl agc=0 

4080 Set_up: IF (P1ot*=“P M > OR (P 1 ot **"p M ) THEN P9872a 

4090 CrtT PLOTTER IS 13, "GRAPHICS" 

4100 GOTO 4120 

4110 P9872a: PLOTTER IS Pse 1 ec t , Hp i b, “ 9872A " 

GCLEAR 
LINE TYPE 1 
LDIR 0 
LORG 5 

LIMIT 0, 184,0, 140 
DATA -2,-1, 1,2 
READ Urn, Dm, Md, Mu 
DATA .39794, .69897, .87506 
READ Log2, Log5, Log7 



STATEMENTS FOR THE FOLLOWING ROUTINES: 
1) CHART 
FAMILY 
STUFF 
DENSITY 
RAY TRACE 



2 ) 

3) 

4) 

5) 



4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 ! 

4280 Chart: 
4290 
, Xmi n 
4300 
4310 • 

?" , Xmax 



ALL UNITS IN MILLIMETERS 



IF <Di gi t i zel *"Y" ) OR <Di gi t i ze*= M y" ) THEN Digit_scale 
IF <Ray tracel = *'Y M ) OR <Ray_tracel s "y") THEN Ray^trace 
IF (Chart l»"Y M ) OR (Chart f*"y" ) THEN Chart 
IF (Fami 1 yf=" Y" ) OR (Famil yS*"y - ) THEN Family 
IF (Stuff$*“Y"> OR (Stu ff* a "y") THEN Stuff 



Xm i n=0 

INPUT “WHAT IS THE MINIMUM VALUE OF 



S (INCHES) (DEFAULT = O INCH) ?" 



Xmax=2 

INPUT “WHAT IS THE MAXIMUM VALUE OF S (INCHES) (DEFAULT 



2.0 INCH) 
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4320 


IF F 1 age * l THEN 4380 










4330 


Ym i n=A 1 pha- 1 










4340 


Ymax»90 










4350 


INPUT "WHAT IS THE MINIMUM VALUE OF 


ALPHA2 


(DEGREES) 


(DEFAULT » 


ALPH 


A-i DEG) ? 


" , Y m i n 










4360 


INPUT "WHAT IS THE MAXIMUM VALUE OF 


ALPHA2 


(DEGREES) 


(DEFAULT * 


90 D 


EG) ? ", Ymax 












4370 


IF FI aga=l THEN 4430 










4380 


IF Xm i n >Xmax THEN BEEP 










4390 


IF Xm i n >Xmax THEN DISP "Smin IS > 


Sm ax : 


PLEASE RE 


-ENTER VALUE 


S IN 



IF Xm i n >Xmax THEN WHIT 2500 

IF Xmin>Xmax THEN Flagc=l 

IF Xmin>Xmax THEN Chart 

IF Y m i n > Y m ax THEN BEEP 

IF Ym i n > Ymax THEN DISP "ALPHA2min IS 



CORRECT ORDER 1 * 

4400 
4410 
4420 
4430 

4440 IF Ym i n > Ymax THEN DISP "ALPHA2min IS > ALPHA2max 

VALUES IN CORRECT ORDER" 

4450 IF Ym i n >Ymax THEN WAIT 2500 

4460 IF Ymin>Ymax THEN FI aga*l 

4470 IF Ym i n >Ymax THEN 4330 

4480 Xorg*Xmin 

4490 Yorg*Ymin 

4500 FI aga*F1 age -0 

4510 GOTO Chart_sca1e 

4520 Family! Xro i n = Ym i n*Xorg*Yor g=0 

4530 Ymax*Y_bu 1 1 et 

4540 Xmax*5 

4550 INPUT "WHAT IS THE MAXIMUM VALUE OF X (INCHES) (DEFAULT 



PLEASE RE-ENTER 



5 INCHES) 



? M , Xmax 

4560 IF Xmax< *Xm i n THEN BEEP 

4570 IF XmaxOXmin THEN DISP "Xmax MUST BE > Xmin. P LEASE RE-ENTER T 

HE VALUES IN THE CORRECT ORDER." 

4580 IF Xmax< =Xm i n THEN WAIT 2500 

4590 IF XmaxOXmin THEN Family 

4600 Family scale: LOCATE 15,130,35,100 
4610 ~ GOSUB Same 

4620 SCALE Xmin-.5*ABS(Ytic),Xmax+.5*AB$(Yt i c ) , Ym i n- . 5*ABS ( Y t i c ) , Y 

_bul let+.5*ABS(Ytic> 

4630 CLIP Xmin-.5*ABS(Ytic), Xmax* . 5*ABS < Yt i c ) , Ym i n- . 5*ABS ( Yt i c > , Y 



_bul 1 et ♦ . 5*ABS( Yt i c ) 

4640 GOSUB Same_axes 

4650 SUBEXIT 

4660 Stuff: Xmi n*Ymi n»Xorg*Yorga0 

4670 Xmax*5 

4680 Ymax*Y_bul 1 et 

4690 INPUT "WHAT IS THE MAXIMUM VALUE OF X (INCHES) (DEFAULT * 5 INCHES) 

?** , Xmax 

4700 IF XmaxOXmin THEN BEEP 

4710 IF XmaxOXmin THEN DISP "Xmax MUST BE > Xmin. PLEASE RE-ENTER TH 

E VALUES IN THE CORRECT ORDER." 

4720 IF XmaxOXmin THEN WAIT 2500 

4730 IF XmaxOXmin THEN Stuff 

4740 Stuff_scale: LOCATE 15,130,35,100 
4750 . . • • GOSUB Same 

4760* ‘ * SCALE Xmin-.5*ABS(Ytic),Xmax+.5*ABS(Ytic),Ymin-.5*ABS(Ytic), Y_ 

bul 1 et ♦. 5*ABS( Yt i c ) 

4770 CLIP Xmin-. 5*ABS(Yt i c >,Xmax+.5*ABS(Yt ic ) ,Ymin-.5*ABS(Yt i c ) , Y_ 

bul let+.5*ABS(Ytic> 



4780 

4790 

4800 Ray_trace: 

4810 

4820 

ES) ?’*,Xmax 

4830 

4840 ' 

R THE VALUES IN 



GOSUB Same_axes 
SUBEXIT 

Xmi n»Xorg*Yorg*0 
Xmax*5 

INPUT "WHAT IS THE MAXIMUM VALUE OF X (INCHES) (DEFAULT = 5 INCH 
IF XmaxOXmin THEN BEEP 

IF XmaxOXmin THEN DISP "Xmax MUST BE > Xmin. PLEASE RE-ENTE 
THE CORRECT ORDER. " 
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4850 IF Xmix<*Xmin THEN WAIT 2500 

4860 IF Xmax<=Xmin THEN Ray trace 

4870 Ymax*Y_bu 11 et 

4880 Ymin*-Ymax 

4890 Ray_t race^scal e: LOCATE 15,130,25,100 
4900 GOSUB Same 

4910 SCALE Xmin-.5*ABS<Ytic>,Xmax+.5*ABS<Ytic), -Y_bul let-.25*AB 

S<Ytic>, Y_bu1 1et+.25*ABS<Yt ic> 



4920 CLIP Xmin-. 5*ABS<Yt ic ),Xmax+.5*ABS<Yt i c ) , - Y bullet-. 25 + AB 

$< Yt i c >, Y_bu1 1 et + . 25*ABS< Yt i c > 



4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
Yt ic-) 



GOSUB Same_axes 
CLIP Xm l n , l 00 , Ym i n , Ymax 
SUBEXIT 

Chart scale: LOCATE 18,133,23,100 ! ALL UNITS IN GDU'S 

GOSUB Same ! DRAW THE DESIGN CHART 

Xt i c*<Xmax-Xmi n)/10 

SCALE Xmin, Xmax + . 25*RBS<Xtic>,Ymin,Ymax+.25*ABS<Ytic) 
CLIP Xm i n f Xmax , Ym i n , Ymax 
GOSUB Same_axes 
FRAME 
SUBEXIT 

Digit_sca1e: LOCATE 0,130,30,100 ! ALL UNITS IN GDU'S 

Xmax=Y_bu1 1 et ! DRAW THE HISTOGRAM 

Xm i n*-Xmax 

Xorg*Yorg=0 

Ymax* 1 

Ym i n=0 

GOSUB Same 

SCALE -Y_bu1 let-. 15*ABS<Ytic),Y bu 1 1 et + . 1 5*AB$ < Yt i c > , - . 
, 1 + . 1 5*ABS< Yt i c ) 



1 5* AB3 < 



5120 CLIP -Y bul 1 et-. l5*ABS<Yt i c> , Y_bu1 1 et+. 15*ABS<Yt ic > , 15*ABS< 

Yt i c > t l + . 15*ABS<Yt ic) 

5130 GOSUB Same_axes 

5140 SUBEXIT 

5150 Same_axes: CALL Laxes < Xt i c , Yt i c , Xor g , Yorg , 1 , 1 , 2 , Xra i n-Xf udge , Xmax , Ym i n-Yf u 

dge, Ymax ) 



5160 CLIP Xmi n, Xmax , Ymi n, Ymax 

5170 RETURN 

5180 Same: Lx*LGT<Xmax-Xm i n ) 

5190 Ly=LGT< Ymax-Ym i n ) 

5200 Xfudge=. 20*<Xmax-Xmi n) 

5210 Yf udge*. 20*< Ymax-Ym i n ) 

5220 T i c — marks: Test xt i c=FRACT<Lx>+<Lx< 0> 

5230 Xt ic*10M INT<Lx>-l >*< 1 + 1 . 5* < <Test xt i c >Log2 > AND (Testxt i c<Log5> > 

+ 4*< < Test xt i c >»Log5) AND < Test xt i c < =Log7 ) ) +6. 5* < Test xt i c >Log7 > ) 

5240 Testyt ic=FRACT<Ly>+<Ly<0> 

5250 Ytic*10~< INT<Ly )-!>*< 1+1. 5*<< Testyt ic>Log2> AND < Testyt ic<Log5> > 

+4*<<Testytic>»Log5> AND <Testyti c<*Log7) )+6.5*<Testytic>Log7)> 



5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 



RETURN 

SUBEXIT 

SUB Laxes<Xtic,Ytic, Xorg, Yorg, Xm aj, Ymaj,Minticsize, Xmin, Xmax, Ymin, Ymax) 
OPTION BASE 0 

l 

COM A1pha,Talpha,Rho,Trho, Rho_i nitial ,Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F, 23, 24 , Norm, Thet ai , Tde 1 t a 

COM Dates, PI otS, Fami lyS,ChartS,MainS,MainlS,Fl agS, Y_hardS 
j 

COM StuffS,RedrawS,DigitizeS, Ray_t race* 

COM INTEGER I , J , Y0_1 oop , Nr ay , Nr ay_ c har t , Nray_ f am i 1 y , Nr ay_st uf f 
COM INTEGER Nr ay_t r ac e , Nr ay_dens i t y , Add_r ay , Nc , Ns , Nbe t a, F 1 ag 

i 

COM INTEGER L i ne^c ount , L i ne_ max , N_i ncrement,Hi t^total ,Pselect ,Hpib 
COM INTEGER Fam l 1 y , Surf^no 

COM REAL Thet a^cr i tical ,Tol ,Nl,N2,N3,Delt a_r ay ,Y0, Y a, Yb, Aperture 

I 

* COM Y bul 1 et , Smax fami 1 y, Percent image 

COM Xl<*>, Yl<*>,Xc<*>,X2<*>, Y2<*7, X2max<*>, Y2max<+) 
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5430 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

3530 

3540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

3950 

3960 

3970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 



COM Y3 ( * ) , Y4< * ) , Be t a( * ) , 32 ( * ) , XsurfmaxC*) , Ysurfmax(*> 
COM Qa(*> , $ m ax ( * > , A 1 p h a2 < *) , Rho2 (*),Hit(*) 



! THIS ROUTINE IS USED TO DRAW FIND LABEL THE AXES FOR THE FOLLOWING 

! routines: 

! 1) CHfiRT 

! 2) FAMILY 

! 3) STUFF 

! 4 > DENSITY 

! 5) RAY_TRACE 

i 

FI 1 
DEG 

LINE TYPE 1 
LDIR 0 
LORG 5 

IF (Xmi n> s Xmax) OR (Ymin>=Ymax> THEN SUBEXIT 
GRAPHICS 

Xfudge*.02*(Xmax-Xmin) 

Yf udge* . 02* ( Ymax-Ym i n ) 

Xmaj*l 
Ymaj * 1 
Mi nt i c i ze*2 

IF (Di gi t i zeS = "Y" > OR ( Di gi t i ze**"y " > THEN Digit_axis 
IF (Ray tracel s "Y") OR (Ray traces*'^") THEN Ray_trace_axis 
IF (Chart *="Y"> OR ( Chart **~y " ) THEN Chart_axis 
IF (Fami 1 y$5"Y" ) OR (Fami 1 y* = "y " ) THEN Family axis 
IF (Stuff**" Y" ) OR (Stuf f **"y" ) THEN Stuff axis 
Chart_axis: LINE TYPE 3 

GRID Xtic,Ytic, Xorg, Yorg, Xmaj,Ymaj,2*Minticsize 
LINE TYPE 1 
GOTO Label x 

Family axis: AXES Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i cs i ze 
GOTO Labe lx 

Stuff axis: AXES Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , M i nt i cs i ze 
GOTO Labe lx 

Ray_ trace_ axi s: AXES Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i csi ze 
GOTO Labelx_ray 

Digit_axis: AXES . 1 , . 1 , 0, 0 , 1 , 1 , 2 
GOTO Label x_d 
Labe 1 x: FIXED 3 
LDIR 90 
LORG 8 

Parx: FOR A*Xorg TO Xmax STEP ABS(Xtic) 

MOVE A, Yorg-Yfudge 
LABEL USING 5950;A 
IMAGE DD.D 
IMAGE DD. DD 
IMAGE #,K 
NEXT A 
Labely: LDIR 0 
LORG 8 

Pary: FOR A*Yorg TO Ymax STEP ABS(Ytic) ! FOR CHART AND FAMILY 

MOVE Xorg-Xf udge , A 
LABEL USING 5950; A 
NEXT A 
GOTO Label_ 

Labelx ray: LDIR 90 
LORG 8 

Parx ray: FOR A*Xorg TO Xmax STEP ABS(Xtic) 

MOVE A, Yorg-Yfudge 
LABEL USING 3950;A 
NEXT A 

Labely ray: LDIR 0 
LORG 8 
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! FOR RAY TRACE 



6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

* 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 



Pary_ray: FOR A»-Y_bu11et TO Y_bu11et STEP ABSCYtic) 

MOVE Xorg-Xf udge , A 

IF A=0 THEN LABEL USING 5950; A 
IF A = 0 THEN Next_a 
LABEL USING 6170JA 
IMAGE DD.D 

Next_a: NEXT A 

GOTO Label 
Label x_d: LDIR 90 
LORG 8 



FOR A=-Y_bul 1 et TO Y bullet STEP .1 
MOVE A, Yorg-Yfudge 
IF A=0 THEN LABEL USING 5950;A 
IF A = 0 THEN GOTO Next_aa 
LABEL USING 6170JA 
Next_aa: NEXT A 

Labely_d: LDIR 0 
LORG 3 

FOR A=0 TO Y bullet STEP .1 
MOVE Xorg-Xf udge , A 
IF A*0 THEN LABEL USING 5950JA 
IF A*0 THEN GOTO Nexta 
LABEL USING 6170JA 
Nexta: NEXT A 

Label : SETGU 
LDIR 0 
LORG 5 
CSI2E 2.5 

IF <Digitize*="Y"> OR CDi gi t i zeS»"y" > THEN Digit_lab*l 
IF <Ray trice$="Y") OR C Ray_t rac e$ 3 " y " ) THEN Ray trace_labe1 
IF <Chart*="Y"> OR < Char t S* •• y " > THEN Chart_label~ 

IF <Fami 1 y$=" Y" ) OR C Fam i 1 y$= " y " ) THEN Fami1y_label 
IF ($tuff$ = "Y'‘> OR <Stuff$ = "y“ > THEN Stuff_labe1 
Chart_label: Cent erx=?4 . 00 
Cent ery=64 



MOVE .5*Centerx,9 
LABEL USING 6500JF 

IMAGE "Design Focal Point : ",DD.DD," inches" 
MOVE 1 . 5*Cent erx, 9 
LABEL USING 6530; Nray_char t 
IMAGE "Number of Rays : " , K 

MOVE . 5*Centerx,5 
LABEL USING 6560;Alpha 
IMAGE "Alpha : "DD.DD" deg" 

MOVE 1 . 5*Cent erx, 5 
LABEL USING 6590JN2 
IMAGE " n2 : ",D.DDDDD 



CSI2E 3 

MOVE Cent erx , 15 

LABEL "S : Distance Along Refracted Ray in the Lens C Inches ) 



LDIR 90 

MOVE .8,Centery 

LABEL "Alpha 2 : Angle of the Tangent Line at" 

MOVE 4.8,Centery 

LABEL "the Second Surface < Degrees > “ 

j 

GOTO End_ label 

Fami 1 y_l abel : Cent erx* Cent erx_f ami 1 y = 72. 5 
Cent ery*Cent ery_f am i ly=66.5 

j 

IF <Stuff*»"Y"> OR <Stuff*="y"> THEN 3tuff_label 
MOVE .5*Centerx,9 
LABEL USING 6500;F 
MOVE 1 . 5*Cent erx, 9 
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6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 



LABEL USING 6530 ; Nr ay_fami I y 
MOVE . 5*Cent erx , 5 
LABEL USING 6560;A1pha 
MOVE 1.5*Centerx,5 
LABEL USING 6590JN2 

MOVE Centerx,23 

LABEL "Distance Along GLM Axis (inches)" 

CSI2E 3 

MOVE Cent erx , 15 
LABEL "FAMILY OF SURFACES" 

LDIR 90 

MOVE i.5,Centery 

LABEL "Radial Distance from the Axis (inches)" 

I 

GOTO End_1 abe 1 
Stuffy label: Centerx=72.5 
Cent ery«66. 5 

i 

MOVE .5*Centerx,9 
LABEL USING 6500; F 
MOVE 1 « 5*Cent erx , 9 
LABEL USING 6530 ; Nray_st uf f 
MOVE .5*Centerx,5 
LABEL USING 6560;A1pha 
MOVE 1 . 5*Cent erx, 5 
LABEL USING 6590;N2 
MOVE Cent erx, 5 
LABEL USING 7070 ; Apert ure 
IMAGE "Aperture : "DD.DDD" inch" 

I 

MOVE Centerx,23 

LABEL "Distance Along GLM Axis (inches)" 

CSI2E 3 

MOVE Cent erx, 15 
LABEL USING 7140;Family 
IMAGE "SURFACE NUMBER "K 
! 

LDIR 90 

MOVE 1.5,Centery 

LABEL "Radial Distance from the Axis (inches)" 

i 

GOTO End_1abel 

Ray_trac e_l abe 1 : Centerx»72.5 ! CHANGE IN GRAPH AS WELL 

Cent ery*62. 5 
I 

MOVE l • 5*Cent erx , 9 
LABEL USING 6530;Nray trace 
MOVE . 5*Cent erx , 10 
LABEL USING 7230 ; Rho_i ni t i al 
IMAGE "Incident Ray Angle : ",3D.DD," deg" 

MOVE . 5*Cent erx, 6 
LABEL USING 7070 ; Apert ure 
MOVE l . 5*Cent erx, 6 
LABEL USING 6590JN2 
MOVE . 5*Cent erx , 2 
LABEL USING 6560;Alpha 
MOVE Cent erx , 23 

LABEL "Distance Along the GLM Axis ( inches )" 

I 

CSI2E 3 

MOVE Cent er x , 15 
LABEL USING 7410, -Family 
IMAGE "SURFACE NUMBER ",K 
I 

LDIR 90 

MOVE 1.3, Cent ery 
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7430 
7460 
7470 
7480 
7490 
7300 
7510 
7320 
7530 
7340 
7530 
7560 
7570 
7580 
7390 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7630 
i s" 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
3080 
8090 
8100 



LABEL “Radial Distance From the Axis < inches >" 

! 

GOTO End_l abe 1 
Digit_ label: Cent erx = 6 1 . 56 
Cent ery=65 

i 

MOVE 1 . 5*Cent erx, 13 
LABEL USING 6530 ; Nr ay_t r ac e 
MOVE Centerx/2,9 
LABEL USING 7550 ; Hi t_t ot al 

IMAGE “Number of Hits on the Image Plane : ",K 

MOVE 1 . 5*Cent erx , 9 
LABEL USING 7580 ; Perc ent_i mage 
IMAGE "X of Rays to Image Plane : ",3D.DD 
MOVE 1 . 5*Cent erx , 5 
LABEL USING 7610JZ3 

IMAGE “Image Plane : M f DD.DD," inches'* 

MOVE .5*Centerx,5 
LABEL USING 7640 ; N_i nc r ement 
IMAGE “Number of Increments C0,1.13 : " , K 

i 

CSI2E 3 

MOVE Cent erx, 20 

LABEL “Normalized Number of Hits us Distance from the GLM Ax 

MOVE Centerx/2,13 
LABEL USING 7710;Family 
IMAGE “SURFACE NUMBER “ , K 

| 

End_l abe 1 : CSI2E 15/4.34 
LDIR 0 
LORG 5 
SETUU 
SUBEND 

SUB XlposCX, Y) 

OPTION BASE 0 

i 

COM Alpha, Ta1pha,Rho,Tr ho, Rho_ initial ,Trhoi ,Rhol,T rho 1 , Rho2 , Trho2 

i 

INTEGER 2 
DEG 

DEF FNY1 <Y)=Y*Ta1 pha/<Tal pha-Trhoi > ! FINDS THE Y-VALUE OF THE INTERCEPT 

! OF THE RAY AND THE FIRST SURFACE 
DEF FNXKY)=Y/Talpha ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 

! AND THE FIRST SURFACE 

Y=FNY 1 < Y > 

X=FNX1<Y> 

SUBEND 

SUB Char 

One: FOR 2=0 TO 79 

IF 2=79 THEN 7960 
PRINT CHRS<228>; 

IF 2=79 THEN PRINT CHRSC223) 

NEXT 2 
SUBEXIT 
SUBEND 

SUB Dialogue 
OPTION BASE 0 

j 

COM Alpha,Ta1pha,Pho,Trho, Rho_i nit i al , Trho i ,Rhol , Trhol ,Rho2, Trho2 
COM F , 23 , 24 , Norm , Thet ai , Tde 1 t a 

COM Dat el , P 1 ot $ , F am i 1 y$ , Char 1 1, Mai nS , Mai n 1 $ , F 1 ag$ , Y_ hard* 

i 

COM Stuff$,RedrawS,Digitize*, Ray_trace* 

COM INTEGER I , J , Y0_ 1 oop , Nray , Hray^chart , Nr ay_ f am i 1 y , Nr av_st uf f 
• COM INTEGER Nr ay_t r ac e , Nr ay_dens i t y , Add_r ay , Nc , Ns , Nbe t a, F 1 ag 

j 
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81 10 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 



COM INTEGER Li ne_count , Li ne^max, N_increm«nt,Hit_tota1 , Pse 1 act ,Hpib 
COM INTEGER Fam i 1 y , Sur f _ no 

COM REAL Thet a_cr i t ical , To 1 , N1 , N2, N3 , De 1 1 a^rav , Y0 , Ya, Yb , Aperture 

COM Y_bu1 let, Smax_f ami ly,Percent_image 

COM Xl(*),Yl(-0,Xc(*) , X2( *) ,Y2(*),X2max(*) , Y2max ( * ) 

COM Y3(*>, Y4<*> , Bet a(*) , S2<*> , Xsurfmax(*), Ysu rt'inax<*) 

j 

COM Qa(*),Smax(*),A1pha2(*),Rho2(*),Hi t (*) 

! 

! 



i 



DEG 



THIS ROUTINE INITIALIZES MOST OF THE VARIABLES USEIT IN THE PROGRAM 



8250 I n i t i al i ze_t op i A 1 pha=2 1 



8260 

8270 

8280 

8290 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 



8530 


PRINT 


PAGE, "1 


8540 


PRINT 


LIN(2) 


8550 


PRINT 


"two 0 | 


8560 


PRINT 


LIN(l) 


8570 


PRINT 


II 


8580 


PRINT 


If 


8590 

• 


PRINT 


II 


8600 


PRINT 


LIN<2) 


8610 


PAUSE 




8620 


PRINT 


PAGE, “ 


8630 
rf ace" 


PRINT 


LIN<1) 


8640 




PRINT 


8650 


PRINT 


II 


8660 


PRINT 


N 


8670 


PRINT 


N 


8680 


PRINT 


M 


8690 


PRINT 


ii 


8700 


PRINT 


" 


8710 


PRINT 


LIN(2> 


8720 


PAUSE 





Ta1pha=TAN(Alpha) 

To 1 3 . 00001 

23*24*50 

N 1 * 1 

N2*4 

N3*l 

F*4 

Y_bu1 1 et*l . 1 
Ya=0 

Yb*Y_bu 1 1 et 
Apert ure*Yb-Ya 
Add_r ay 3 0 
Nray* 10 

Rho_i n i t i al =Rho=0 
Trho i *Trho*TAN < Rho_ 
L i ne_count=0 
L i ne_max*45 
N_i ncrement * 1 00 
Psel ect »7 
Hpi b*5 
P 1 o t $ * " C " 

Date* 3 " " 

Fami 1y*»"N" 

St uf f * 3 " N " 
Digitize* 3 "N" 
Redrau**"N" 

Ray — traces*" N M 



WHEN YA # 0 THEN THEN THE BORDERS OF THE 
APERTURE ARE ILLUSTRATED BY DRAWING A 
RAY AT Y»Ya AND Y=Yb . THIS IS DONE BY 
ADDING A RAY TO ALL NRAY x DECLARATIONS 



initial) 



, " When a request for information is placed on the screen" 
pt i ons exist: " 

, 11 1) key in the required information and PRESS CONT." 

2) PRESS CONT if the dat a/par ame t er or other response " 

has not or will not change from the previous entry. If in" 
doubt, key in the correct response or data and PRESS CONT. 



rhe sign convention is 

i" 1) the origin is placed at the vertex of the first su 

" and the GLM axis." 

2) distances: positive to the right of the origin." 

positive above the origin (Radial dist 
positive out of the meridian plane (sc 
(ie. a right hand system.)" 

3) angles: POSITIVE IF counter-clockwise" 

rotation from the GLM axis to the ray" 



an c e ) . " 
reen ) . " 



8730 Alpha: PR 
8740 • PR 



INT PAGE," Alpha is the angle of inclination (ie. the c 
INT "hal f-angl e > of the FIRST surface with respect to the 



one " 

GLM- ax i s 
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8730 PRINT LINO),' 1 The current value of RLPHR i s R 1 pha; " degrees " 

8760 INPUT " WHAT IS NEW VRLUE OF RLPHR < DEGREES)?'* , R 1 pha 

8770 Talpha=TAN(Rl pha) 

8780 Index: PRINT PRGE, " The lens system is assumed to be operating in air." 
8790 PRINT "Therefore the first index of refraction is defined as nl= 1 . 0OO00 



8800 PRINT LIN<2),“ It is assumed that nl < n2" 

8810 PRINT " and n2 > n3." 

8820 N2: INPUT "WHRT IS n2 ( DEF RULT VRLUE * 4) ?",N2 

8830 N3: INPUT "WHRT IS n3 < DEFRULT VRLUE * 1) ?",N3 

8840 IF N3< N2 THEN Thet a_cr i t i cal =ASN(N3/N2) 

8850 IF N3 >N2 THEN BEEP 

8860 IF N3 >N2 THEN DISP "n2 MUST BE > n3. PLERSE RE-ENTER n2 RND n3. " 

8870 IF N3 >N2 THEN WRIT 4000 

8880 IF N3 >N2 THEN N2 

8890 Rho initial! PRINT PRGE," The rays incident on the first surface are 
8900 
8910 
8920 
8930 
8940 
8950 

8960 Y_bu 1 1 et : 
i tudi nal " 

8970 

i nches. " 

8980 
St" 



PRINT "assumed to be parallel to the GLM-axis. " 

PRINT LIN<5), "PRESS CONT" 

PRUSE 

Rho*Rho_i ni t i al 
Trho*TAN < Rho ) 

CRLL Snell ! COMPUTE RH01 

PRINT PRGE," The GLM is assumed to be symmetric around the long 
PRINT "axis. The maximum radius, called Y_ bullet, is ";Y_bullet;" 
PRINT LINC2)," If your design requires a different radius, plea 



8990 


PRINT 


9000 


INPUT 


9010 Aperture 


: PRINT 


from the GLM 


axis, " 


9020 


PRINT 


wed to enter" 





"enter the new value now." 

" Y_bu 1 1 et (INCHES) ?",Y_bullet 

PRGE," The aperture is the difference in radial distance 
"projected onto the first surface, into which light is alio 



9030 

9040 

";Ya; 

9050 

inch)" 



inch)" 



PRINT "the GLM optical system. The parameter values are:" 

PRINT LIN<2),“ Ya = the lower aperture limit (default value * 

PRINT " Yb 3 the upper aperture limit (default value = ";Yb;“ 



9060 

9070 

9080 

9090 

9100 



PRINT " and is always less than or equal to Y_bu11et." 

INPUT "WHRT IS Ya (INCHES) ?",Ya 
INPUT "WHRT IS Yb (INCHES) ?" , Yb 
IF Ya>*Yb THEN BEEP 

IF Ya>*Yb THEN DISP "Ya MUST BE < Yb. Please enter correct val u 



es 



u 



9110 

9120 

9130 

9140 

ENTER 

9150 

9160 

9170 

9180 

9190 



IF 

IF 

IF 

IF 



Ya>*Yb THEN 
Ya>*Yb THEN 
Yb >Y_bu 1 let 
Yb >Y bul let 



WRIT 3000 
Rpert ure 
THEN BEEP 
THEN DISP 



'Y bullet MUST BE > Yb: PLERSE RE- 



WRIT 3000 
Y bullet 



usl ess 



Y_bu 1 1 et , Ya RND Yb. " 

IF Yb >Y_bu 1 let THEN 
IF Yb>Y_bul let THEN 
Rpert ure* Yb-Ya 

IF Ya< >0 THEN Rdd_ray*l 
Nray: PRINT PRGE," The program will 



trace" ; Nray ; " rays through the system 



9200 PRINT "you specify another value." 

9210 PRINT LIN(2) , " CRUTION : Entering too many lines will clutter the des 

i gn chart . " 

9220 PRINT " Try";Nray;“ rays, then decide if you want more 



or less rays." 

9230 INPUT " HOW MR NY 
9240 IF Nray<2 THEN 
9250 IF Nr ay< 2 THEN 
E-ENTER THE CORRECT VRLUE." 
9260 • IF Nray< 2 THEN 
9270 IF Nr ay< 2 THEN 



RAYS DO YOU WANT THE PROGRAM TO TRRCE ?" ,Nray 
BEEP 

DISP "YOU MUST USE RT LERST TWO (2) RAYS. PLERSE R 

WRIT 2500 
Nr ay 
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The focal point is the location on the GLM-axis at wh 



PRINT "This value has been chosen to prevent the angle of the tangen 
PRINT "of the second surface from exceeding 90 degrees at y = ";Y_bu 



9280 Focus: PRINT PAGE, " 
i ch " 

9290 PRINT "you want all of the rays to pass through." 

9300 PRINT LIN<2>," The minimum value of the focal point is ";Y_bu11et/ 

Tal pha; " i nches. " 

9310 
t line" 

9320 
1 let 

9330 PRINT "<ie. at y * Y bullet inches )." 

9340 PRINT L I N < 2 ) , " The default* value is ";F;" inches." 

9330 INPUT "WHAT IS THE VALUE OF THE FOCAL POINT ?",F 

9360 Date: PRINT PACE 

9370 INPUT "WHAT IS TODAY'S DATE ?",Date$ 

9380 Start: PRINTER IS 16 
9390 Gymnastics: SUBEND 
9400 SUB Chart 
9410 OPTION BASE 0 
9420 ! 

9430 
9440 
9430 
9460 
9470 
9480 
9490 
9300 
9310 
9320 
9330 
9340 
9330 
9360 
9370 
9580 
9390 
9600 
9610 
9620 
9630 
9640 
9630 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9730 
9760 
9770 
9780 
9790 
9800 
9810 
9820 
9830 
9840 
9830 
9860 
9870 
9880 



COM A 1 pha, Tal pha, Rho, Trho, Rho_i ni t i al , Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F , 23 , 24 , Norm, Thet ai , Tde 1 t a 

COM Dat eS , P 1 ot $ , Fam i 1 y$ , Char t S, Mai nS, Mai n 1 S , F 1 ag$ , Y_hard* 

i 

COM Stuffs,Redraw^,Digitizef, Ray_trace* 

COM INTEGER I , J, Y0_1 oop , Nray , Nray_chart , Nray_f ami 1 y , Nray_ st uf f 
COM INTEGER Nray_trace, Nray_densi ty, Add_ray, He , Ns, Nbet a, FI ag 

i 

COM INTEGER Li ne_count , L i ne_max, N_i ncrement , Hi t_tot al , Pse 1 ect , Hpi b 
COM INTEGER Fam i 1 y , Surf _ no 

COM REAL Thet a_cr i tical ,Tol,Nl,N2,N3,Delt a_ ray , Y0, Y a, Yb , Aperture 
! 

COM Y_bu1 1 et , Smax_fami 1 y, Percent image 

COM xT<*>, Yl<*),Xc<*),X2<*>, Y2< *7, X2max < *) , Y2max<*> 

COM Y3<*> , Y4<*) , Beta<*) , S2 < * ) , Xsurf max < * ) , Ysurf max< * ) 

i 

COM Qa<*),Smax<*>, Alpha2<*), Rho2<*),Hi t <*> 

THIS ROUTINE COMPUTES AND DRAWS A FAMILY OF CURVES REPRESENTING THE 
RELATIONSHIP BETWEEN THE DISTANCE ALONG THE RAY REFRACTED AT THE FIRST 
SURFACE OF THE LENS AND THE SLOPE (DERIVED FROM SMELL'S LAW) REQUIRED 
TO SUCCESSFULLY REFRACT THAT RAY THROUGH THE DESIRED FOCAL POINT. 

THE NOTABLE VARIABLES ARE: 

1) BETA I THE ANGLE OF A LINE DRAWN FROM THE FOCAL POINT TO THE 
INTERCEPT OF THE RAY AND THE FIRST SURFACE 
I THE ANGLE OF THE REFRACTED FROM THE FIRST SURFACE WITH 
RESPECT TO THE GLM-AXIS <REF ) 

: THE REQUIRED ANGLE OF THE REFRACTED RAY FROM THE SECOND 
SURFACE WRT REF 
: RHO 1 > BETA 
RHO 1 < BETA 

THE SLOPE OF THE SECOND SURFACE WRT REF REQUIRED TO 
SATISFY SNELL'S LAW 

THE DISTANCE ALONG THE RAY REFRACTED FROM THE FIRST 
SURFACE, MEASURED FROM THE FIRST SURFACE 

INTERCEPT POINT OF THE INCIDENT RAY AND THE FIRST SURFACE 
X-INTERCEPT OF THE RAY REFRACTED AT Q 
: DISTANCE FROM Q TO A 



2) RHO 1 

3) RH02 

4) HIGH 

5) LOW : 

6) ALPHA2 



7) S 

8) Q 

9) A 



10) QA 



DEG 

Nray chart=Nray 

IF~<Stuff**"Y"> OR <Stuff$="y"> THEN Nr ay_chart =Nr ay_St uf f 
Chart $="Y" 

CALL Header 
FI ag*0 



9890 Draw axes: 



CALL Plot 



144 



COMPUTE BETA FOR EACH RAY 



9900 Beta: 

9910 

9920 

9930 

9940 

9930 

9960 

9970 Chart 
9980 
9990 
10000 
10010 
10020 s: 

10030 

10040 

10030 

10060 Low: 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 

10130 High 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 

10240 Zero 
10230 
10260 
1027O 
10280 
10290 
10300 
10310 

10320 Norm 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 Next 

10440 

10430 

10460 

10470 

10480 Next 

10490 

10500 

10510 

10520 

10330 

10540 

10330 - 

10560 



FOR 1*1 TO Nray_chart 
Tbe t a-Y 1 < I > / < X 1 < I ) -F ) 

Beta(I)*ATN<Tbeta) 

A*X 1 < I ) - Y 1 < I ) /Trho 1 ! COMPUTE THE DISTANCE ALONG THE REFRACTED 

Qa2=<Xl< I)-A)-2+Yl< 1)^2 ! RAY TO THE X-INTERCEPT 

Qa< I > =SQR<Qa2) ! THIS IS THE MAX ALLOWED VALUE OF S 

NEXT I 

: FOR Nbe t a= 1 TO Nray_chart ! COMPUTE ALPHA2 AND S FOR EACH RAY 
S0 a 0 

Smax=sQa( Nbet a) 



Nst ep^Smax/ZO 
J s 0 

FOR S-S0 TO Smax STEP Nstep 
J»J+1 

IF ABSCBetaCNbeta) > >ABS<Rhol ) THEN High 

IF $<0 THEN Next_beta 

CALL Low_ regi on < S , A 1 pha2 , Nbe t a) 

IF Tde 1 1 a< 0 THEN Negative 
IF Rho2>0 THEN Negative 
IF A 1 ph a2>=90 THEN Negative 
IF L i ne_ count >L i ne_ max THEN CALL Header 
PRINT USING I mage_dat a; Nbet a, Bet a< Nbet a) ,Thetai ,Norm, Rho2 , $ , A 1 pha2 
L i ne_c ount =L i ne_c ount + 1 
GOSUB Graph 
GOTO Next_s 

: CALL Hi gh_ regi on<S, A1 pha2, Nbeta) 

IF Tde 1 1 a< 0 THEN Negative 
IF Rho2>0 THEN Negative 
IF A 1 pha2 > = 90 THEN Negative 
IF Li ne_ count >L i ne_ max THEN CALL Header 
PRINT USING Image_dat a; Nbeta, Be ta< Nbeta), Thetai , Norm, Rho2 , S , A 1 pha2 
L i ne_ count »L i ne_ c ount + l 
GOSUB Graph 
GOTO Next_ s 

cross overTA=*F*S I N<Alpha)/SIN<A1 pha+ABS < Bet a<Nbeta))> ! THIS 

B*S*COS<ABS<Beta<Nbeta)>-ABS<Rhol)) ! CONDITION EXISTS IN 
D a A-B ! HIGH WHEN ALPHAS > 98 DEGREES 

E*S*SIN<ABS<Bet aCNbeta) >-ABS<Rhol ) > 



Tde 1 1 a=E/D 

Arho2 3 AB$<Beta<Nbeta))+ATN<Tdelta) 
IF Ar ho2< 0 THEN Negative 
Rho2*-l*Arho2 



z cross: A=C0S<Rho2)-N2/N3*C0S<Rhol> 

B»N2/N3*SINCABS<Rhol ) > -S IN < ABS < Rho2 ) ) 
Tnorm*B/A 



Norm»ATN<T norm) 

Thet ai =Norm+ABS<Rhol ) 

Thet ar=Norm+ABS< Rho2 ) 

Al pha2*Norm+90 

IF L i ne_ c ount >L i ne_max THEN CALL Header 
PRINT USING Image_ dat a; Nbeta, Bet a< Nbet a) , Thet ai , Norm, Rho2, S , A 1 pha2 
Li nt_count =L i ne_ c ount+1 
GOSUB Graph 
s: SmaxCNbet a)-S 

Al pha2<Nbet a) *A1 pha2 
NEXT S 



S*S-Nst ep 

IF S<Qa< Nbet a) THEN Negative 
beta: IF Li ne_count >L i ne max THEN CALL Header 

PRINT 

Li ne_count=L i ne count+1 

Flag*2 ~ ! LABEL THE PLOT WITH NBETA 

GOSUB Graph 
F 1 ag * 1 ‘ RESET 

NEXT Nbeta 

F 1 ag-3 ! TELL GRAPH THIS IS THE LAST BETA 

CALL Graph 
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10370 

10380 

10390 

10600 

10610 

1062O 

10630 

10640 

10630 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10730 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10830 

10860 

10870 

10880 

10390 

10900 

10910 

10920 

10930 

10940 

10930 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 



Chart * = "N " 

CALL Header_end 
SUBEXIT 

Negative: IF Nstep<Tol THEN Next._beta 

S*S-Nst ep ! RH02 < 0 FOR LOW OR ALPHA2 > 0 FOR HIGH OR LOW 
S0 = S 

Nstep=Nstep/l0 
Rho2=0 
GOTO S 
Graph: GRAPHICS 
SETUU 

LINE TYPE 1 
LDIR 0 
LORG 2 
CSI2E 2.5 

IF J* 1 THEN MOVE S,Alpha2 

IF J= 2 THEN DRAW S,Alpha2 ! DO NOT CHANGE 
IF <J> = 3) AND < F 1 ag< >2 ) THEN DRAW S,Alpha2 ! DO NOT CHANGE 
IF FI ag = 2 THEN LABEL USING 10770;Nbeta 
CSI2E 15/4.54 
IMAGE K 
RETURN 

Image datarlMAGE DDD,4X,3(4D.3D,5X),4D.3D,5X,2D.3D,5X,4D.3D 
! IMAGE STATEMENT IS FOR Nbet a, Bet a< Nbet a) , Thet ai , Nor m , Rho2, S , A 1 pha2 
SUBEND 

SUB Lou_region<S, Alpha2, INTEGER N) 

OPTION BASE 0 

j 

COM A 1 pha, T al pha, Rho, Trho, Rho_i riitial , Trhoi ,Rhol,Trhol, Rho2, Trho2 
COM F, 23, 24 , Norm, Thet ai , Tde 1 t a 

COM Date*, Plot*, Fami 1 y* , Chart * , Mai n* , Ma ini*, FI ag* , Y_hard* 

I 

COM Stuff*,Redrau*,Digitize*, Ray_trace* 

COM INTEGER I , J, Y0_1 oop, Nray, Nray_chart , Nray_f ami 1 y , Nray_st uf f 
COM INTEGER Nr ay_t r ac e , Nray^derts i t y, Add_ ray , Nc , Ns , Nbet a, F 1 ag 

i 

COM INTEGER L i ne_ c ount , L i r»e_ max , N i ncremertt , H i t_t ot al , Pse 1 ec t , Hp i b 
COM INTEGER Fam i 1 y , Surf _no 

COM REAL Thet a^cri tical ,Tol ,Nl,N2,N3,De1t a_ray ,Y0,Ya,Yb, Aperture 

j ~ - 

COM Y bullet,Smax f ami 1 y, Percent image 

COM xT<*>, Yl<*>,Xc<*>,X2<*>,Y2<*7,X2max<*>,Y2max<*> 

COM Y3<*),Y4<*),Beta<*),S2<*), Xsur f max < *) , Ysurfmax<*> 

( 

COM Qa<*>,Smax<*), Al pha2<*) , Rho2<*> , Hi t <*> 

i 

DEG 

Tdelta:A=SIN<A1pha+ABS<Beta<N))) ! COMPUTE RH02 * f<S) 

B=F*SIN<A1 pha)/A 

C ss S*COS<ABS<Rhol)-ABS<Beta(N))) 

D*B-C 

E*S*SIN<ABS<Rhol)-ABS<Beta<N>>) 

Tdel ta=E/D 
Delta* ATNCTdel ta) 

Arho2»ABS<Beta<N> >-Del ta 
Rho2*- 1 *Arho2 

Normal :A*C0S<Rho2)-N2/N3*C0S<Rhot) ! COMPUTE ALPHA2 * f<RH02) 
B*SIN<ABS<Rho2) > -N2 /N3*S I N< ABS < Rho l > ) 

Tanorm*B/A 
Anorm»ATN<T anorm ) 

Thetai »Anorm-ABS < Rho l ) 

Thet ar s Anorm- ABS< Rho2) 

Norm=-l*Anorm 
Al pha2*90+Norm 

SUBEND 

SUB High regi on<S, Al pha2, INTEGER N) 

OPT 1 0N*~BASE 0 
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11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
11840 
1 1850 
11860 
11870 
11880 
11890 
11900 



j 

COM A1pha,Ta1pha,Rho,Trho,Rho_initi al ,Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F, 23, 24, Norm, Thetai , Tde 1 t a. 

COM Dat e* , P 1 ot * , F am i 1 y*, Chart *, Mai nl , Mai nl *, F 1 ag* , V hard* 

i 

COM $tuff*,Redraw*,Digitize*, Ray_trac e* 

COM INTEGER I,J,Y0_loop,Nray, Hr ay_c hart , Nr ay_ f ami 1 y , Nray_ st uff 
COM INTEGER Nr ay_ t rac e , Nray_ dens i t y , Add_ ray , Nc , Ns , Nbet a, F 1 ag 

j 

COM INTEGER L i ne_c ount , L i ne max, N i ncrement , Hi t t ot al , Pse 1 ec t , Hp i b 
COM INTEGER Family, Surf no 

COM REAL Theta_cri tical ,Tol , N 1 , N2, N3 , De It a_r ay , Y9 , Ya, Yb , Aperture 

j 

COM Y bul I et , Smax_f am i 1 y, Percental mage 

COM x7<*>, Yl<*),Xc<*),X2<*),Y2<*7,X2max<*>, Y2max<*) 

COM Y3<*>, Y4<*>, Beta<*),S2<*),Xsurfmax<*>, YsurfmaxC*) 

j 

COM Qa<*> , SmaxC*) , A1pha2<*> , Rho2<*),Hi t <*> 

i 

DEG 

High:A*SIN(Al pha+ ABS < Bet a< N > ) ) ! COMPUTE RH02 = f<S> 

B*F*SIN<A1pha)/A 
C*S*CGS<ABS<Beta<N> >-ABS<Rhol >> 

D*B-C 

E*S*SIN<ABS<Bet a<N) >-ABS<Rhol >> 

Tdel t a*E/D 

Arho2*ABS<Beta<N) )+ATN<Tde1 ta) 

Rho2=- 1 *Arho2 

Normal : A*N2/N3*S IN< ABS < Rho 1 > ) -S I N< ABS <Rho2) ) I COMPUTE ALPHA2 = f<RH02> 
B*N2/N3*C0S<Rhol >-C0S<Rho2> 

Tanorm*A/B 
Anorm*ATN< T anorm > 

Thetai*ABS<Rhol > -Anorm 
Thetar*ABS<Rho2 ) - Anorm 
Norm*- 1 *Anorm 
A1 pha2*90+Norm 

SUBEND 
SUB Fam i 1 y 

OPTION BASE 0 

; 

COM A1 pha, T alpha, Rho, Trho, Rho_i n i t i al , Trhoi , Rho 1 , Trho 1 , Rho2 , Trho2 
COM F,23, 24, Norm, Thetai , Tdel ta 

COM Dat e*, P 1 ot * , Fam i 1 y *, Chart * , Mai n* , Mai n 1 * , F 1 ag* , Y_hard* 

I 

COM Stuff*,Redraw*,Digitire*, Ray_tr ace* 

COM INTEGER I , J , Y0_ 1 oop , Nr ay , Nr ay_c hart , Nray_f am i 1 y * Nr ay_st uf f 
COM INTEGER Nray_t race, Nray_densi ty , Add_ray , Nc , Ns, Nbet a, F 1 ag 

I 

COM INTEGER Line count, Line max,N i ncrement , H i t_tot al , Pse 1 ec t , Hp i b 
COM INTEGER Fam i 1 y , Surf_no 

COM REAL Thet a_crit ical ,Tol ,Nl,N2,N3,Del ta_ray, Y0, Y a, Yb, Aperture 

f 

COM Y_bu1 1 et , Smax f am i 1 y , Per c ent image 

COM Xl<*>, Yl<*),Xc<*),X2<*>, Y2<*7, X2max<*>, Y2max<*) 

COM Y3<*),Y4<*),Beta<*),S2<*),Xsurfmax<*), Ysurt'max(t) 

i 

COM Qa< * ) , Smax< *) , Al pha2<*> , Rho2<*> , Hi t <*) 

j 

! THIS ROUTINE COMPUTES AND DRAWS A FAMILY OF SURFACES USING THE 
! THE DESIGN CHART DRAWN IN SUBROUTINE CHART 

! THE ROUTINE TAKES THE END POINTS OF EACH CURVE OF ALPHA2 VS S 
! AND DRAWS A SURFACE USING ALPHA2 TO DRAW A LINE TO INTERCEPT THE NEXT 
f RAY. THESE SURFACES ARE THEN THE MAXIMUM SURFACES FOR EACH PARAMETER 
! BETA. 

j 

J WHEN STUFF*** 1 Y" THE ROUTINE GOES THROUGH THE I LOOP ONCE <ie FOR 
! ONE SURFACE) AND THE J LOOP NRAY STUFF TIMES. 
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11910 

11920 

11930 

11940 

11930 

1 1960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12090 

12090 

12100 

12110 

12120 

12130 

12140 

12130 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12230 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12330 

12360 

12370 

12380 

12390 

12400 

12410 

rf 

12420 

rf 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12300 

12310 

12320 

12330 

12340 

12330 



i 



DEG 

Fami 1 y $ * ” Y M 
CALL Header 
Ymax=Y_bu 1 1 et 
LINE TYPE 1 
LDIR 0 
LORG 5 

CSIZE 15/4.54 

Flag=0 ! RESET CONDITION 

Nray_ fami ly=Nray 

IF (StuffS* M Y M > OR (StuffS*"y" ) THEN Nr ay_f am i 1 y*Nr av_s t uf f 
Drawees: CALL Plot ! DRAWS AND LABELS THE AXES 

Step_ f ami 1 y= I NT (Nrav^f ami 1 y/10> 

IF Step family<=0 THEN Step fami ly=l 
First surf : LINE TYPE~3 ! DRAW THE FIRST SURFACE 

MOVE 0,0 
X*Ymax/Tal pha 
DRAW X , Ymax 
DRAW 100, Ymax 

IF < St uf f S* " Y " ) OR (St uf f S*"y " ) THEN Delta_b 
EXIT GRAPHICS 
BEEP 
YS* "N" 



INPUT “DO YOU WANT TO DRAW IN THE INCIDENT RAYS ? Y/N“,YS 
IF ( Y S * " N " ) OR (Y S* ,, n"> THEN Delta_b 
GRAPHICS 
LINE TYPE 3 

FOR I *St ep_f am i 1 y TO Nray_ family STEP Step_ family 
MOVE 0 , Y 1 ( I ) 

DRAW XKI),YKI) 

A*Xl(I)-Yl(I)/Trhol 
DRAW A, 0 
NEXT I 

De 1 1 a_b : GRAPHICS 

IF (StuffS a "Y"> OR (Stuff S^’y" ) THEN St ep_f am i 1 y= 1 
31*Y1 (Step_ fami 1 y)-Xl (Step_f ami ly)*Trhol 
B2*Y1 (Step_ f ami 1 y + 1 ) -X 1 < St ep_f am i 1 y+ 1 > *Trhol 
De 1 1 ab*B2-B 1 



St art i ng_poi nts: FOR I =St ep_ f am i 1 y TO* Nray_ fam 
J*I 

F 1 ag_over*0 
FI ag_r>eg*0 

Sf i rst *S 1 ast =Smax ( I > 

IF (StuffS= H Y M > OR (Stu ff$»“y“> THEN 
S2(I)*Slast 

Delta xsurf*S2(I)*C0S(Rhol> 

Del ta“ysurf»S2< I)*SIN<Rhol) 

Xsurf 2 1*X1 < I > + Del t a_xsurf 
Ysurf21*Yl( I >+Del ta_ysurf 

IF (StuffS* M Y M ) OR (Stuff S^y") THEN 



ly STEP Step family 
! PRINTING PURPOSES 
! RESET CONDITION 
! RESET CONDITION 



Sfirst»Slast=Smax(Fami ly) 
! FOR STUFF ONLY 



Xsurf 21=X1 (Fami 1 y ) +De 1 t a_xsu 



IF (Stuffs* 



Y") OR (Stuf f S=" y" ) 



THEN Ysurf21=Yl(Fami 1 y ) >De 1 t a_ysu 



IF Ysurf 21<0 THEN GOSUB Neg ysurf ! THE STARTING POINT 

X2< I > *Xsurf 2 1 “ ! IS BENEATH THE X-AXIS 

Y2( I > *Ysur f 2 1 

XsurfmaxC I >*Xsurf 21 ! THESE ARE THE MAXIMUM <X,Y> COORDINATES OF THE 

Ysurfmax(I)*Ysurf21 ! RAY IN THE LENS 
IF Flag neg=l THEN GOSUB New s 
Trho21*Y2?I )/(X2(I )-F) 

Rho2(I)*ATN(Trho21) 

A1 pha2i *A 1 pha2( I ) 

IF (Stuffs* 1 * Y“ ) OR (Stu ffS = , 'y ,i ) THEN A 1 pha2 i =A 1 pha2 ( Fami 1 y > 

IF Alpha2i>*90 THEN N«xt_i 
Talpha2i*TAN(Alpha2i ) 

Bsurf 2l*Ysurf 2 1 -Xsurf 21 *Tal pha2 i 
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12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 

12670 

12680 

12690 

12700 

12710 

12720 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

12870 

12880 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 



Xsurf 1 ast*Xsurf21 
Ysurf 1 ast »Ysur f 2 1 
Bsurf 1 ast=Bsurf21 

IF Lme_count>Line jnax THEN CALL Header 
PRINT USING 13470; I , J , Rho2< J> , Xsur f 1 ast , Ysurf 1 as* , S 1 as t , A 1 pha2 i 
Line c ount =L i ne_ c ount + 1 
LINE~TYPE 1 
CSIZE 2.3 
LORG 2 

MOVE Xsurf2t , Ysurf 21 ! THE STRRTING POINT 

Surf ac es : FOR J=I + l TO Nray_family ! DRAW THE PARTICULAR SURFACE 

Bnext=Bl+(J-l)*De1tab 
Numxsur f = Bnext -Bsur f 1 ast 
Xsurf next = Numx surf / < Tal pha2 1 -Trho 1 ) 

Ysurf next “Xsurf next *Tr ho 1 + Bn ext 

X2(J)*Xsurfnext ! ONLY USED FOR STUFF. DON'T USE AN IF 

Y2< J)*Ysurfnext ! STATEMENT IN ORDER TO SAVE TIME 



X1=0 

CALL Xipos(Xl,Ysurfnext> 

IF Xsurf next < =X l THEN GOSUB Y1 



DRAM Xsurf next , Ysurf next 



Xs2*(Xi< J) -Xsurf next )-2 
Ys 2* <Y 1<J) -Ysurf next )^2 
Snext *SQR <Xs2 + Ys2 ) 

S2< J)»Snext 

IF ABS(Beta(J)>>ABS<Rhoi> 
IF ABS(Beta< J> ><=ABS(Rhol > 
Rho2< J)=Rho2 



! COMPUTE NEXT VALUE OF S BY 
! EXTENDING THE PAY FROM THE 
! PRESENT POINT TO THE NEXT 
! ALPHA2 VS S LINE 

THEN CALL H i gh_reg i on < Snext , A 1 pha2 i , J ) 
THEN CALL Low_reg i on < Snext , A 1 pha2 1 , J > 



A 1 pha2 < J > = A 1 pha2 i 

IF Line count>Linejiax THEN CALL Header 
PRINT USING 13470; I, J , Rho2 < J ) , X2 < , Y2 < J > , S2 < J > , Alpha2< J) 
Li ne_ count =Li nej ount + 1 

IF A1pha2i>=90 THEN Next i 
Tal pha2i *TAN< A 1 pha2< J> > 

Bsurf next -Ysurf next -Xsurf next *Ta1 pha2 i 
Bsurf 1 ast *Bsurf next 



Xsurf 1 as t *Xsurf next 



Ysurf 1 ast =Ysurf next 

IF <St uf f f s " Y " ) OR (St uf f " ) THEN 12970 
X2max( I >*Xsurf 1 ast ! USED TO DETERMINE APERTURE FOR STUFF 
Y2max( I Ysurf 1 ast 

IF Flag over=l THEN Next_i 
Next_j: NEXT J 

Next_i 2 IF Line count>Line_max THEN CALL Header 
PRINT 

Line count *L i ne_c ount + 1 

I F~*( St uf f $ = " Y " > OR (Stuff** ,, y ,, > THEN 13030 
IF Flag_ouer*0 THEN GOSUB Labe1_surf 
IF (StuffS^’Y") OR (Stuff$* tt y M > THEN 13080 
NEXT I 

LORG 5 ! RESET 

CSIZE 15/4.54 

IF (StuffS* M Y M > OR (Stuff S» M y u > THEN GOSUB Yb 
F1ag>3 

CALL Graph 

Fami lyS^'N” 

CALL Header_end 
SUBEXIT 
Y 1 2 FI ag_ over* 1 

Xsurfnext*Bsurfl ast/(Tal pha-Tal pha2i ) 

Ysurf next *X surf next *Ta1 pha 

MOVE Xsurf next , Ysurf next ! THE ENDPOINT 

CSIZE 3 
LORG l 

IF <Stuff$» ,, N ,, > OR <Stu fff* ,, n ,, > THEN LABEL USING 13410; I 

IF (Stuff»* ,, Y ,, > OR (Stuffls'V) THEN LABEL USING 13410;Familu 

MOVE Xsurf next , Ysurf next ! PLACE THE PEN BACK ON TOP OF THE POINT 
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13230 

13240 

13250 

13260 

13270 

13230 

13290 

13300 

Trhol 

13310 

13320 

13330 

13340 

13350 

13360 

13370 

13380 

V 

13390 

13400 

13410 

13420 

13430 

13440 

13450 

13460 

13470 

13480 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13680 

13690 

13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13780 

13790 

13800 

13810 

13820 

13830 

,YS 

13840 

13850 

13860 



RETURN 

Neu_s: Sy2*Y2(I)-Yl(I) 

Sx2=X2(I>-Xl(I) 

$2< I )*SQRCSx2+Sy2) 

RETURN 

Neg ysurf : Flag neg = l ! IF, FOR SOME NUMERICAL REASON YB1 < 0 

A*X l7l > - Y 1 < I ) /Trho 1 

IF (Stuf f S* M Y" ) OR CStu ff$*"y") THEN 1 y)-Yl(Fami 1 y)/ 



Labe 



Xsurf 21 *A ! START AT 

Ysurf 21 *0 
RETURN 

surf: MOVE Xsurf 1 as t , Ysurf 1 ast ! THE 

CSI2E 3 
LORG 1 

IF (Stuf f S="N" ) OR (Stuff S*"n" ) 
IF (Stuff S*"Y" ) OR (StuffS="y" > 



THE X-INTERCEPT 
ENDPOINT 

THEN LABEL USING 13410; I 
THEN LABEL USING l34lO;Fami1 



MOVE Xsurf last, Ysurf last ! PLACE THE PEN ON TOP OF THE POINT 
RETURN 

IMAGE K 

Yb: Bsm*Y2max(Fami 1 y )-X2max(Fam i 1yO*Trhol ! COMPUTE THE UPPER LIMIT 

Xl=Bsm/(Talpha-Trhol> ! OF THE APERTURE. THIS IS THE FINAL VALUE OF 
Yb*Yl*Xl*T alpha ! THE APERTURE 

Apert ur«*Yb-Ya 
RETURN 

IMAGE 2X , DDD, 5X , ODD, 5 ( 5X , DDD . DDD ) 

! THE IMAGE STATEMENT IS FOR: I , J , Rho2( J > , X2( J > , Y2< J) , S2 < J ) , A 1 pha2 ( J > 
SUBEND 

SUB Ray_trace 
OPTION BASE 0 

I 

COM Alpha,Ta1pha,Rho, Trho, Rho_i ni t i al , Trhoi ,Rhol, Trhol ,Rho2, Trho2 
COM F, 23, 24, Norm, Thetai , Tde 1 ta 

COM Dates, PlotS,Fami 1 yS, Charts, Mai nS, MainlS, FI agS, Y_hardS 

i 

COM StuffS,Redraw$,DigitizeS, Ray^tracel 

COM INTEGER I , J, Y0_1oop, Nray, Nray_chart , Nray_fami 1 y ,Nray_stuf f 
COM INTEGER Nray_t race , Nray_dens i t y , Add_ray , Nc , Ns , Nbe t a, F 1 ag 

COM INTEGER Line c ount , L i ne_max , N i nc rement , H i t_t ot al , Pse 1 ec t , Hp i b 
COM INTEGER Fam i Ty , Sur f_no 

COM REAL Thet a_ cr l tical ,Tol ,Nl,N2,N3,Del t a_ ray , Y0,Ya,Yb, Aperture 

j 

COM Y_bu1 let, $max_f ami ly, Percental mage 

COM xT<*>, Yl(*>,Xc(*),X2<*), Y2<*),X2max(*>, Y2max(*) 

COM Y3 (* ) , Y4 ( * ) , Bet a<*> , S2<*> , Xsurf max<*) , Ysurf max (*) 

! 

COM Qa(*>,Smax(*),A1pha2(*),Rho2(*),Hit(*) 

t 



! THIS ROUTINE CONTROLS THE RAY DIAGRAM FOR AN ARBITRARY NUMBER 
I OF RAYS WHICH IS ENTERED BY THE OPERATOR IN RESPONSE TO A PROMPT 

i 

! THE ROUTINE CONTROLS THE FITTING OF A POLYNOMIAL TO A SET OF POINTS 
! WHEN AN ARBITRARY RAY DOES NOT COINCIDE WITH A RAY COMPUTED IN STUFF 

j 

DEG 

Ray -> traceS aB "Y'* 

Sel ect*16 
EXIT GRAPHICS 
Y S « " N M 

INPUT "DO YOU WANT A HARD COPY OF ALL OF THE GENERATED COEFICIENTS ? Y/N" 

IF (YS»“ Y") OR (YS* - y“) THEN Select*© 

Graphi cs*l 
XM 
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13870 

13880 

13890 

13900 



N=4 



CALL Dr iuer<N, Select, X, Graph ics) 
Ray_trac e*=“N“ 

SUBEND 

1'3910 SUB Dri oer<N, Sel ect , Input , Graphi cs) 
13920 ! 

13930 OPTION BASE 1 
13940 ! 

13950 
13960 
13970 
13980 
13990 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 

14090 P: Degree=3 



COM Alpha, Talpha,Rho,Trho, Rho_ i nitial ,Trhoi , Rhol,Trhol,Rho2,Trho2 
CON F, 23, 24, Norm, Thetai , Tdel ta 

COM Date! , P 1 ot * , Fam i 1 y* , Chart, $ , Mat n* , Mai n 1 * , F 1 ag* , Y_ hard* 

I 

COM Stuff*, Redraw*, Di gi t i re* , Ray trace* 

COM * - 

COM 

; 

COM 
COM 

j 

DIM Xx<N),Yy<N),A*C23,B*C23,Coeffs<0: 10) 

PRINTER IS Select 
Q = 4 



INTEGER I , J, YQ_1 oop, Nr ay, Nr ay_chart , Nray_f ami 1 y , Nray_stuf f 
INTEGER Nray^tr ac e , Nray^dens i t y , Add_ray , Nc , Ns , Nbet a, F 1 ag 

INTEGER Li ne_c ount , L i ne_max , N_i nc re merit. Hit _tota1,Pselect,Hpib 
INTEGER Family, Surf no 



14100 



CALL Pol ynomi al <Xx<*) , Yy<*> , N, Degree, Coef fs<*>, Regs s, Re sss, Total ss. Re 



gms, Resms , F , Dfreg, Df res , Dft ot , Abort ) 



PRINT "Coeff i c i ents: " 

FOR 1=0 TO Degree 

PRINT USING 14140; I,Coeffs<I) 

IMAGE "A< M DDDD“)=“,K 
NEXT I 

PRINT L I N < l ) 

GOSUB Aootable 

IF Graphics AND <Select=16) THEN WAIT 20OO 

IF Graphics THEN CALL PI ot_cubi c <Q, A, B, Coef fs<*> , Xx< *) , Yy <*) , N, Degree 



14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
e, Sel ect ) 

14200 SUBEXIT 

14210 Print: PRINTER IS Select 

PRINT LIN<2),SPA<12>; "DATA" 

FOR 1=1 TO N 

PRINT USING 14250; I,Xx<I>, Yy<I> 

IMAGE “Point #“ DDDD" : “,5X, “X2=" DDD.DDDD,5X, " Y2= “ DDD . DDDD 
NEXT I 

PRINT L I N< 2 ) 

PRINTER IS 16 
RETURN 

PRINT USING 14310 

IMAGE “Source “5X“ Df'llX" SS“13X“ MS " 1 2X“ F “ , / 

PRINT USING 14330; Dfreg, Regss, Regms, F 

IMAGE “Regressi on"5X, MDD, 4X, M7D. 3D, 4X, M7D . 3D, 5X, M4D. 3D 
PRINT USING 14350;Dfres,Resss,Resms 
IMAGE “Residual "5X, MDD, 4X, M7D.3D,4X, M7D. 3D 
PRINT USING 14370;Dftot,Totalss 
IMAGE “Total “5X, MDD, 4X, M7D. 3D, / 



14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 Aootable: 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 



RETURN 

SUBEND 



14400 SUB Polynomial <X<*),Y<*),N, Degree, Coe ffs<*> , Regss, Resss, Tot a lss, Peg ms, Resm 
s , F, Dfreg , Df res , Dft ot , Abort ) 

14410 OPTION BASE 0 

DIM Matrix<Degree,Degree>, I nu< Degree , Degree ), B < Degree ) 

REDIM Coef f s < Degree ) 

! Check for higher degree than possible 



14420 

14430 

14440 

14450 

14460 

14470 

14480 

14490 

14500 



IF Degree >N-2 THEN SUBEXIT 
Df reg=Degree 
Df re s=N -1-Degree 
Df t ot *Df reg+Df res 
FOR K=0 TO Degree I 

FOR J=K TO Degree 
Matri x<K, J)=0 



Set up system of equations 
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14310 

14320 

14530 

14340 

14550 

14560 

14570 

14380 

14590 

14600 

14610 

14620 

14630 

14640 

14650 

14660 

14670 

14680 

14690 

14700 

14710 

14720 

14730 

14740 

14750 

14760 

14770 

14780 

14790 

14800 

14810 

14820 

14830 

14840 

14830 

14860 

14870 

14880 

14890 

14900 

14910 

14920 

14930 

14940 

14930 

14960 

14970 

14980 

14990 

15000 

13010 

13020 

13030 

15040 

13030 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13130 

13160 



FOR 1*1 TO N 

Matri x<K, J)=Matrix<K,J)+FNG<K)*FNG<J) 

NEXT I 

Matrix<J,K)*Matrix<K,J> 

NEXT J 
B<K>*0 

FOR 1*1 TO N 

B<K)*B<K)+Y< I )*FNG<K> 

NEXT I 
NEXT K 

MAT Inv*INV<Matri x ) 

MAT Coeffs*Inv*B 
FOR 1*1 TO N 
X1-X1+XC I > 

X2*X2+X ( I ) *X< I ) 

Y 1 * Y 1 +Y < I ) 

Y2*Y2 + Y< I >*Y< I ) 

Z = Z + X < I ) *Y< I ) 

NEXT I 
Y1*Y1/N 
X1*X1/N 

Total ss*Y2-N*Yl *Y 1 
GOSUB Regss 
Resss*Total ss-Regss 
Regms=Regss/Df reg 
Resms=Resss/Dfres 
FaRegms/Resms 
SUBEXIT 

Regss: Regss=0 

FOR 1*1 TO N 
J*0 

FOR L*0 TO Degree 

J*J+X< I)~L*Coeffs<L) 

NEXT L 

Regss*Regss>< J-Yl )~2 
NEXT I 
RETURN 
SUBEXIT 

DEF FNG<M) *X< I >^M 
SUBEND 

SUB Plot _cubic<Q, A, B,Coeffs<*),X<*),Y<*),N, Degree, Select) 
IF Wh i c hdev i c e= 1 THEN GRAPHICS 
DATA -2,-1, 1,2 
READ Um, Dm , Md , Mu 
DATA .39794, .69897, .87506 
READ Log2, Log5, Log7 
Xmin*FNMin<X<*),N) 

Xmax*FNMax<X<*),N) 

Lx*LCT <Xmax-Xm i n ) 

Ymin*FNMin<Y(*),N) 

Ymax*FNMax<Y<*),N) 

Ly*LGT< Ymax-Ym i n ) 

Xfudge*.20*<Xmax-Xmi n) 

Yfudge*. 20* < Ymax-Ym i n) 

Setup: IF Plot**"?" THEN P9872 

Crt : PLOTTER IS "GRAPHICS" 

GOTO 13090 

P9872: PLOTTER IS Pse 1 ect , Hpi b, "9872A" 

GCLEAR 

GRAPHICS 

LOCATE 23, 123,0, 100 
FRAME 

LINE TYPE 1 

SCALE Xm i n-X fudge , Xmax , Ym i n-Y fudge , Ymax 
Testxtic*FRACT<Lx)*<Lx<0) 

- Testyt i c*FRACT<Ly)+<Ly<0) 



! Solve the system of equations 



Total Sum of Squares 
Regression Sum of Squares 
Residual Sum of Squares 
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13170 Xt ic*10M lNT<lx>-l )*( 1 + 1 . 5*< ( Test x t i c >Log2 > AND < Test xt i c< Log5 ) ) + 4 + 

<<Testxt ic >=Log5> AND (Testxt i c<=Log?> > + 6. 5*<Testxt i c >Log?> ) 

13180 Yt i c*lO /v < INT<Ly )-l )*< 1 + 1 . 5*< <Testyt i c >Log2) AND <Testytic<Log3>>+4* 

<<Testyt i c>=Log5> RND <Testyt i c<=Log?> >+6. 5*<Testyt ic >Log?> > 



13190 

Yfudge, Ymax) 
13200 
13210 
13220 
15230 
13240 
13230 
15260 
13270 
15280 
13290 
15300 
15310 
13320 
13330 
13340 
13330 
13360 
15370 
13380 
15390 
15400 
13410 
15420 
13430 
13440 
13430 
13460 
13470 
15480 
13490 
13300 
13310 
13320 
13530 
13340 
13330 
15560 
13370 
15580 
13390 
15600 
15610 
13620 
13630 
13640 
13630 
13660 
13670 
15680 
13690 
13700 
13710 
13720 
13730 
13740 
13730 
13760 
13770 
13780 
13790 
15800 



CRLL Laxes^cubi c(Xtic,Ytic,Xmin,Ymin, 1 , 1 , 2, Xmi n-Xf udge , Xmax , Ymi n- 

LORG 5 
FOR 1=1 TO N 
MOVE X<I),Y<I) 

LRBEL USING 13240; 

IMRGE ft 
NEXT I 
LORG 1 
PENUP 

EXIT GRAPHICS 
SUBEXIT 

Polynomial: SETUU ! CHECK THE EARLIER PROGRAM FOR THESE PARAMETER VALUES 
CLIP 0, 123,0, 1O0 
LINE TYPE 1 
LINf TYPE 6 

FOR I=Xmin TO Xmax+Xfudge STEP <Xmax+Xf udge-Xmi n ) /SO 
J = 0 

FOR L=0 TO Degree 
J=J+I'L*Coeffs<L> 

NEXT L 

PLOT I,J,ttd ! OR DRAW ???? 

NEXT I 
PENUP 

EXIT GRAPHICS 
SUBEXIT 
DEF FNMaxCXC*) , N) 

X=X(t) 

FOR 1=2 TO N 
X = MAX<X, X< I ) ) 

NEXT I 
RETURN X 

DEF FNMi n<X<*> , N> 

X=X< 1 > 

FOR 1=2 TO N 
X=MIN<X,X<I>> 

NEXT I 
RETURN X 
SUB Header 

OPTION BASE 0 

i 



Alpha, Tal ph a, Rho , Trho , Rho_ initial ,Trhoi ,Rhol,Trhol,Rho2, Trho2 
F,Z3,Z4,Norm,Thetai , Tde 1 1 a 

Dates, PI ot$, Fami 1 yS, Charts, Mai nS, Mai ntS, FI agS, Y — hardS 
StuffS,RedrawS,DigitizeS, Ray — traces 

INTEGER I , J, Y0_1 oop, Nr ay , Nr ay_char t , Nray_f ami 1 y , Nr ay_stuf f 
INTEGER Nray^trac e , Nray_ densi t y , Add_ray , Nc , Ns , Nbet a, F 1 ag 

INTEGER Li ne_count , L i ne^max, N_i ncrement , Hi t_ t ot al ,Pselect,Hpib 
INTEGER Fam i 1 y , Surf_no 

REAL Theta^cn tical ,Tol,Nl,N2,N3,Del t a_ray , Y0 , Ya, Yb , Apert ure 

Y_bu 1 1 et , Smax_f ami ly, Percent _i mage 

Xl<*>, Y1 <*>,Xc<*>,X2<*>, Y2<*>,X2max<*>, Y2max<*> 

Y3<*>,Y4<*),Beta<*>,S2<*>, Xsurfmax(*) , Ysurfmax<*> 

QaC *) , Smax < *) , Al pha2<*> , Rho2<*) , Hi t <*> 



THIS ROUTINE DRAWS THE HEADER FOR PRINTED OUTPUT FOR THE FOLOWING 
ROUTINES: 
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15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 Mai n 1 
16070 



1) 

2 ) 

3) 

4) 



CHART 
FAMILY 
STUFF 
RAY TRACE 



THIS ROUTINE DRAWS AND PRINTS THE HEADERS FOR TABULAR DATA. 



THE ZTAB'S CAN BE USED TO POSITION TABLE HEADINGS 
FOR THE PRINTED OUTPUT 



16080 

16090 



DEG 

Zt abl-35 
Ztab2=27 
Zt ab3= 1 3 

IF < Mai n$* " Y " ) OR < Mai nl= " y " ) THEN Main 
<Mainl$=" Y" ) OR < Mai n 1 $ = " y " ) THEN Mainl 
(Ray_t race**" Y" ) OR (Ray trace*="y") THEN Ray^trace 
( Chart ** "Y " ) OR (CharU="y M ) THEN Chart 
(Fam i 1 y**" Y" ) OR (Farm ly$ = "y" > THEN Family 
(Stuff**" Y" ) OR (Stuff **"y" ) THEN Family 
PRINT PAGEJLIN(2> 

GOSUB Char long 

PRINT LIN( 1 >TTAB<2tab2) INITIAL PARAMETER VALUES " ; L I N ( 1 ) 
GOSUB Char_long 
PRINT LIN(2> 

SUBEXIT ^ 

IF Li ne_count >L i ne_max THEN GOSUB Header_end_l ong 
PRINT PAGE;LIN(2> 

Li n«_count *0 

GOSUB Char_long 



IF 

IF 

IF 

IF 

IF 

Mai n: 



16100 




PRINT LIN(l);TAB(Ztab3>, "RAY 


QA 


Smax 


A t pha2 


RHO 


2", LINO) 








16110 




DISP TAB ( Zt ab3 ) , "RAY 


QA 


Smax 


Atpha2 


RHO 


2" 










16120 




GOSUB Char tong 








16130 




PRINT LIN(2)~ 








16140 




SUBEXIT 








16150 


Chart 


: IF Line count>Line max THEN 


GOSUB Header_end 


_1 ong 




16160 




PRINT PAGE;LIN(2) 








1617.0 




L i ne_c ount *0 








16180 




GOSUB Char tong 








16190 




PRINT LIN<1), "RAY BETA 


THETAI(RAY) 


NORMAL 


RHO 2 




S 


ALPHA 2";LIN(1> 








16200 




DISP "RAY BETA 


THETAI(RAY) 


NORMAL 


RHO 2 




S 


ALPHA 2" 








16210 




GOSUB Char tong 








16220 




PRINT LIN(2>~ 








16230 




SUBEXIT 








16240 


Family: IF Line c ount >L i ne_max THEN 


GOSUB Header_end_l ong 




16250 




PRINT PAGEJLIN(2) 








16260 




Li ne_count =0 








16270 




GOSUB Char tong 








16280 




PRINT LIN(1)7" Begin Next 


Xsurf 


Ysurf 


S 


A1 pha2 


RHO 2" 








16290 




PRINT " Ray Ray 


(next ) 


* (next ) 


< next ) 


(next > 


(next )“;LIN(1> 








16300 




DISP " Begin Next 


Xsurf 


Ysurf 


S 


At pha2 


RHO 2" 








16319 




GOSUB Char long 








16320 




PRINT LIN(2)~ 








16330 




SUBEXIT 








16340 


Ray_trace: IF Li ne_count >Li ne_max THEN GOSUB Header 


_end_l ong 





16350 

16360 

16370 

16380 

> 

16390 



Xe 



Yc 



PRINT PAGEJLIN(2> 
Li ne_ count *0 

GOSUB Char long 
PRINT LIN(l>7 ,, RflV 
X4 Y4 

DISP "RAY 



X0 


Y0 


XI 


Y 1 


X2 


Y2 


LIN( I ) 
X0 


Y0 


XI 


Y1 


X2 


Y2 
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Xc Yc X4 Y4 " 

16400 GOSUB Char long 

16410 PRINT LIN<2>~ 

16420 SUBEXIT 

16430 Char long: FOR 2=0 TO 79 

16440 ~ IF 2*79 THEN PRINT CHR$(228> 

16450 IF 2=79 THEN 16470 

16460 PRINT CHRS <228 > ; 

16470 NEXT 2 

16480 RETURN 

16490 Char_short: Char_min=12 ! THIS ROUTINE CAN BE USED FOR SMALL TABLES 
16500 Char_max=64 

16510 FOR 2=Char_min TO Char_max 

16520 IF 2*Char mi n THEN PRINT TAB < Char_nu n ) ; 

16530 IF 2=Char~max THEN PRINT CHRS<223> 

16540 IF 2=Char max THEN 16560 

16550 PRINT CHRSC223); 

16560 NEXT 2 

16570 RETURN 

16580 Header_end_1ong: PRINT LIN<2) 

16590 GOSUB Char_long 

16600 RETURN 

16610 Header end_shor: PRINT LIN<2> 

16620 ~ GOSUB Char_short 

16630 RETURN 

16640 SUBEND 
16650 SUB Header end 
16660 ! 

COM A 1 pha, Tal pha, Rho , Trho , Rho_ i nitial ,Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F, 23, 24, Norm, Thet ai , Tde 1 t a 

COM Dat e$, P 1 ot $ , Fami 1 y$, Chart*, Main*, MainlS, Flag*, Y_hard* 



16670 

16680 

16690 

16700 

16710 

16720 

16730 

16740 

16750 

16760 

16770 

16780 

16790 

16800 

16810 



i 



INTEGER 2, Char_ m i n, Char_max 

THIS ROUTINE DRAWS THE FINAL BOTTOM LINE OF A TABLE. SUB HEADER ABOVE 
DRAWS THE BOTTOM LINES ON PAGES OF TABLES WHILE OUTPUT IS STILL BEING 
CALCULATED 



PRINT L IN < 2 ) 

FOR 2=0 TO 79 

IF 2=79 THEN PRINT CHR*<228> 
IF 2=79 THEN 16810 
PRINT CHR*<228); 

NEXT 2 
16820 SUBEXIT 
16830 Short: Char_min=20 
Char max*60 



16840 
<2> ABOVE 
16850 
16860 
16870 
16880 
16890 
16900 
16910 



! THIS ROUTINE CAN BE USED TO FINISH A SMALL TABLE 
! TO USE, INSERT AN IF STATEMENT AFTER THE PRINT LIN 



FOR 2=Char_ rain TO Char_max 

IF 2*Char_min THEN PRINT TABCChar min); 

IF 2=Char_max THEN PRINT CHR*<2287 

IF 2»Char max THEN 16900 

PRINT CHR*<228>; 

NEXT 2 
SUBEXIT 
16920 SUB Stuff 
16930 OPTION BASE 0 
16940 ! 

16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 



COM A 1 pha, Tal pha, Rho , Trho , Rho_i nitial ,Trhoi , Rhol , Trho 1 , Rho 2 , Trho 2 
COM F, 23, 24, Norm, Thetai , Tdel ta 

COM Dat e* , P 1 ot *, Fa« i 1 yS , Chart $, Mai nS , Mai n 1 $ , F 1 agS , Y hardS 
i 

COM Stufff,Redrawf,Digiti zeS , Ray_ t rac e$ 

COM INTEGER I , J , Y0_1 oop , Nray , Nray^c hart , Nr ay_ f am i 1 y , Nr ay_s t uf f 
COM INTEGER Nray_tr ac e, Nray density, Add ray , Nc , Ns, Nbet a, FI ag 

i “■ * 

COM INTEGER Li ne_count , Li ne_max, N_i ncrement,Hit_tota1,Pselect,Hpib 
COM INTEGER Fam il y , Sur f _no 



155 



17050 

17060 

17070 

17080 

17090 

17100 

17110 

17120 

17130 

17140 

17150 

17160 

17170 

17180 

17190 

17200 

17210 

17220 

17230 

17240 

17250 

17260 

17270 

17280 

17290 

17300 

17310 

17320 

17330 

FAULT 

17340 

17350 

17360 

17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

17450 

17460 

17470 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 



COM REAL Thet a_c riticil ,To1 ,Nl,N2,N3,Delt a_ray , Y0 , Ya, Yb , Aperture 

i 

COM Y_bu1 1 et , Smax_f ami 1 y , Perc ent image 

COM x7< * ) , Y 1 < * ) , Xc < * ) , X2 < * > , Y2 < *7, X2max < * > , Y2max < * > 

COM Y3<0,Y4<*),Beta<*),S2<*),Xsurfmax<*>, Ysurt max< * > 

I 

COM Qa< * ) , SmaxC*) , A1 pha2<*> , Rho2<*> ,Hi t <*) 



THIS ROUTINE COMPUTES 250 POINTS OF THE SURFACE CHOSEN IN FAMILY 
THESE POINTS ARE THEN USED IN OTHER ROUTINES TO TRACE AN ARBITRARY 
NUMBER OF RAYS THROUGH THE DESIGN SURFACE 



DEG 

IF Y2max<Fami ly)=YUFami ly> THEN Yb*Y 1 < F am i 1 y > 

IF Y2max<Fami 1y)=Yl<Fami ly) THEN Initialise 

1 

Yb: Bsm*Y2max<Fami 1 y)-X2max<Fami 1 y)*Trhol ! COMPUTE THE UPPER LIMIT 
Xl=Bsm/<Ta1 pha-Trhol ) ! OF THE APERTURE. THIS IS AN ESTIMATE FOR 

Yb*Yl*Xl*Ta1pha ! THE APERTURE MAY CHANGE IN THE FINAL DESIGN 
Apert ure*Yb-Ya ! THE ESTIMATE IS REQUIRED TO CALCULATE DELY BELOW 
Initialize: IF (Redraw*-" Y" ) OR CRedr awS="y " > THEN Redraw! INDICATES 

Ya*Yl <Fami 1y> 

Apert ure=Yb-Ya 

Y0_mi n*Ya*<Talpha-Trhoi > /Tal pha ! REDRAW TO ANOTHER SCALE 
Y0_max*Yb*< Tal pha-Trhoi )/Tal pha 
Nr ay stuff=250 

INPUT “HOW MANY RAYS DO YOU WANT TO DRAW THE SURFACE WITH < DE 
* 250 MAX) ?“,Nray_stuff 

IF Ya=0 THEN Add_ray*0 
IF Ya< >0 THEN Add_ray*l 

Xnray*Nray_stuf f ~ ! AVOIDS MIXED MODE ARITHMETIC 

Del y*<Y0_max-Y0_mi n)/Xnray 
Y0_rai n*Y0_mi n-De 1 y 

IF Ya*0 THEN Y0_ m i n*Y0_m i n+De 1 y 
Nray_st uf f =Nray_ st uf f +Add_ ray 
FI ag*0 
Ns*0 



St art : 



Next i 



X2< Ns > *0 
Y2<Ns>*0 
Bet a<Ns>=0 



Stuf f**“Y“ 

FOR 1*1 TO Nr ay_s t uf f ! COMPUTE THE COORDINATES OF THE INTERCEPT 
FI ag*0 ! OF THE INCIDENT RAY AND THE FIRST SURFACE 

X*0 

Rho*Rho initial 
Trho*TAN<Rho> 



Y*Y0_mi n+De 1 y*I 
Ns*Ns+ 1 
Y1 <Ns)*Y 

CALL XlposCX, Y) 



X 1 < Ns ) *X 
NEXT I 
BEEP 

Y # * “ N “ 

INPUT “DO YOU 
IF <YS*“Y“> 
CALL Chart 
BEEP 
Yf *“N “ 

INPUT “DO YOU 
IF < Y * * “ Y " ) 

Y $ * “ N “ 

INPUT "DO YOU 
IF < Y $ * “ Y " ) 

CALL Fami 1 y 



WANT A HARD COPY 
OR < Y S * “ y " ) THEN 



WANT A HARD COPY 
OR < Y S * “ y “ > THEN 

WANT A HARD COPY 
OR < Y * * “ y “ ) THEN 



OF THE COMPUTED DATA ? Y/N 
GOSUB Yhard 



OF THE CHART ? Y/N",YS 
GOSUB Dump_i t 

OF THE COMPUTED DATA ? Y/N 
GOSUB Yhard 



Y* 



Y* 
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17710 

17720 

17730 

17740 

17730 

17760 

17770 

17730 

17790 

17300 

17810 

17320 

17830 

17840 

17830 

17360 

17870 

17880 

17890 

17900 

17910 

17920 

17930 

17940 

17930 

17960 

17970 

17980 

17990 

13000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

13090 

18100 

18110 

18120 

18130 

18140 

18130 

18160 

18170 

18180 

18190 

18200 

18210 

18220 

18230 

18240 

18250 

18260 

13270 

18280 

18290 

18300 

18310 

18320 

18330 

18340 

18330 

ULLET 

18360 



S t u f f * * " N " 

SUBEXIT 

Redraw: Stuff*="Y" 

CALL Plot 
LINE TYPE 8 
MOVE 0,0 

DRAW Y bul 1 et/Tal pha, Y bullet 
DRAW 100,Y_bu1 let 
MOVE X2< 1 > , Y2< 1 > 

LINE TYPE 1 
FOR 1-2 TO Nray_stuff 
DRAW X2(I>,Y27l> 

NEXT I 

MOVE X2<I-1), Y2< 1-1) 

LORG 2 

LABEL USING 17370;Fami1y 
IMAGE K 
Redr au*-"N" 

FI ag»3 
CALL Graph 
SUBEXIT 

Dump it: PRINTER IS 0 

PRINT CHR*<27>&" &1 00T '* 

DUMP GRAPHICS 

PRINT CHR*<27>&" &1 36T" 

PRINTER IS 16 
RETURN 

Yhard: Flag*-" 1 " 

PRINTER IS 0 
RETURN 
SUBEXIT 

SUB Binary search<X,Y> 

OPTION BASE 0 

j 

COM 
COM 
COM 

i 

COM 
COM 
COM 

COM 
COM 
COM 
| 

COM 
COM 
COM 

COM 

i 



j 
j 
i 

; 

! 
i 
i 

DEG 

DEF FNA<X, Y)-X-Y/Trho2 
DEF FNAi < X , Y > =X- Y/Tal pha 

DEF FNXn<A>»A-Y_bu1 1 et/Trhol ! FINDS THE INTERCEPT OF THE RAY AND Y*-Y 
Trho2-TAN<Rho2> ! RH02 MUST BE DECLARED ELSEWHERE 



A1pha,Ta1pha, Rho,Trho,Rho_ init ial , Trhoi ,Rhol, Trhoi,Rho2, Trho2 
F, Z3, Z4, Norm, Thet ai ,Tde1ta 

D at e*, Plot*, Family*, Chart*, Main*, Mainl*, FI ag*, Y_hard* 

Stuff S, Redraw*, Digitize*, Ray_t race* 

INTEGER I , J, Y0_1 oop, Nray , Hrayjzhart , Nray_f ami 1 y, Nray — stuff 
INTEGER Nray_trace, Nray_densi t y , Add_ ray , Nc , Ns , Nbet a, F 1 ag 

INTEGER Li ne_count , L i ne_max, N_ increment, Hit _tot a 1,Pse1ect,Hpib 
INTEGER Fami 1 y , Surf_ no 

REAL Thet a_cr i tical ,Tol,Nt,N2,N3,De1 ta^ray , Y0, Y a, Yb, Aperture 

Y bu11et,Smax f am i 1 y , Perc ent image 

X7<*>, Y1 <*>,Xc<*> , X2<*> , Y2<*“,X2max<*>, Y2max<*> 

Y3<*>,Y4<*),Beta<*>,S2<*>, XsurfmaxC*) , YsurfmaxC *> 

Qa<*>,Smax<*>, A1 pha2<*> ,Rho2<*>,Hit <*> 



THIS ROUTINE FINDS THE INTERCEPT OF THE RAY WITH THE FOLLOWING: 

1) FIRST SURFACE 

2) SECOND SURFACE 

3) FIRST IMAGE PLANE 

4) SECOND IMAGE PLANE 



) 
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18370 

18380 

18390 

18400 

18410 

18420 

18430 

18440 

18450 

18460 

18470 

18480 

18490 

18500 

18510 

18520 

18530 

18540 

18550 

18560 

18570 

13580 

18590 

18600 

18610 

18620 

18630 

18640 

18650 

18660 

18670 

18680 

18690 

18700 

18710 

18720 

18730 

18740 

18750 

18760 

18770 

18780 

18790 

18800 

18810 

18820 

18830 

18840 

18850 

18860 

18870 

18880 

18890 

18900 

18910 

18920 

18930 

18940 

18950 

18960 

18970 

18980 

18990 

19000 

19010 

19020 



IF Surf no*4 THEN Four 

Xc <Y0_1 oop)*FNA<X, V) ! FIND THE X-INTERCEPT OF RH02 

Three: Dy*<Z3-X>*Trho2 
Y*Y+Dy 
X*23 
SUBEXIT 

Four: Dy»<Z4-X>*Trho2 
Y*Y+Dy 
X*24 
SUBEXIT 
SUB Graph 

OPTION BASE 0 

i 

COM Alpha, Talph a, Rho,Trho,Rho_ initial , Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F, 23,24, Norm, Thet a i ,Tdel ta 

COM Date*, Plot*, F am i 1 y*, Chart*, Mai nS, Mai nl*, Flag*, Y_ hard* 

I 

COM Stuff*,Redraw*,Digitize*, Ray_trace* 

COM INTEGER I , J, Y0_1 oop, Nray , Nray_ chart , Nray_f ami 1 y. Nray_ stuff 
COM INTEGER Nr ay_ trace, Nray_ densi ty , Add — ray, Nc , Ns, Nbet a, FI ag 

i 

COM INTEGER Li ne_c ount , L i ne_max , N_i ncrement,Hit_total,Pse1ect,Hpib 
COM INTEGER Fam i 1 y , Sur f _no 

COM REAL Thet a_cr i tical , Tol ,N1,N2,N3, Delt a_r ay , Y0,Ya,Yb, Aperture 

i 

COM Y_bu 1 1 et , Smax_f am i 1 y , Perc ent image 

COM Xl<*>,YK*>,Xc<*>,X2<*:>,Y2<*7,X2max<*>, Y2max<*> 

COM Y3 < *) , Y4< * ) , Bet a<*> , S2< * ) , Xsurf max < * ) , Ysurfmax<0 

I 

COM Qa<*),$max<*),Al pha2 < * ) , Rho2 < * ) , H i t < * > 

l 

! THIS ROUTINE DRAWS THE GLM FOR STUFF AND RAY_TRACE SUBROUTINES 
! AND DIGITIZES THE IMAGE PLANE POSITION (23) 



DEG 

IF F 1 ag*3 THEN Haiti 

IF <Di gi t i ze**"Y" ) OR < D i g i t i ze** "y " > THEN Digit 
Draw axes: CALL Plot 

Firs! surf: FIXED 2 

LINE TYPE 8 
MOVE 0,0 

X s Y bul 1 et /Tal pha 
DRAW X , Y bul let 
DRAW 1007 y bul 1 et 
MOVE 0,0~ 

DRAW X , - Y bul let 
DRAW 100, r Y_bul let 
X2pos: MOVE X2< 1 ) , Y2< 1 ) 

FOR 1*2 TO Nray_st uf f 
DRAW X2<I>,Y2<I> 

NEXT I 

X2neg: MOVE X2 < 1 > , -Y2 < 1 > 

FOR 1*2 TO Nray stuff 
DRAW X2 < I ) , -Y2 < I ) 

NEXT I 

EXIT GRAPHICS 
Y * * " N ** 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT WITHOUT RAYS ? Y / N " , Y* 
IF < Y S * " Y " ) OR <YS*"y") THEN GOSUB Dump it 
GRAPHICS 

IF (Redr aw**"Y" ) OR (Redrau** M y " > THEN $econd_image 
First image: LINE TYPE 5 

MOVE 23, Y bul let 
DRAW 23, -Y_bu 1 1 et 
Second^ i mage : LINE TYPE 6 
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19030 

19040 

19050 

19060 

19070 

19080 

19090 

19100 

19110 

19120 

19130 

19140 

19150 

19160 

19170 

19130 

19190 

19200 

19210 

19220 

19230 

19240 

19250 

19260 

19270 

19280 

19290 

19300 

19310 

19320 

19330 

19340 

19350 

19360 

19370 

19380 

19390 

19400 

19410 

19420 

19430 

19440 

19450 

19460 

19470 

19480 

19490 

19500 

19510 

19520 

19530 

19540 

19550 

19560 

19570 

19580 

19590 

19600 

19610 

19620 

19630 

19640 

19650 

19660 

19670 

19680 

19690 



MOVE Z4 , Y_bu 1 let 
DRAW 24, -Y but let 
REM DRAW THE RHYS 

IF <Ray_ t rac e$ = " Y " > OR <Ray_tracel s "y" ) THEN Nr ay_graph = Nr ay_t r ac e 
IF < St uf t'$ = " Y" > OR < 3 1 uf f $=" y " > THEN Nray graph=Nray stuff 
First : LINE TYPE 1 

CLIP 0, 100,-Y_bul let ,Y_bul let 
FOR 1=1 TO Nray graph 
MOVE 0 , Y l < I ) 

DRAW XKDjYKI) 

NEXT I 

Second : FOR 1=1 TO Nray_graph 
MOVE XKD.YKI) 

DRAW X2 < I ) | Y2 < I > 

NEXT I 

First image p: FOR 1=1 TO Nray graph 
MOVE X2 < I > , Y2 < I ) 

DRAW Z3, Y3< I ) 

NEXT I 

Decision: WAIT 2000 

EXIT GRAPHICS 

BEEP 

Y$a"N" 

INPUT "DO YOU WANT TO PLOT TO THE SECOND IMAGE PLANE ? Y/N" , Y$ 
GRAPHICS 

IF <Y$="N"> OR <YS = ,# n"> THEN Wai t 1 
Second image p: FOR 1=1 TO Nray_graph 
MOVE Z3,Y3<I> 

DRAW Z4 , Y4 < I ) 

NEXT I 

Waiti: BEEP ! THIS ROUTINE PRESENTS THE PLOT TO THE OPERATOR 

WAIT 250 ! IF A NOTE TO THE OPERATOR IS DESIRED, ENTER SETGU , LORG 2 
BEEP ! MOVE 2,2,CSIZE 2. 5, LABEL "PRESS CONT",CSIZE 15/4.54, 

PAUSE ! SETUU AFTER THE SECOND BEEP 
EXIT GRAPHICS 

IF <Flag=0> OR <Flag=3> THEN EXIT GRAPHICS 
SUBEXIT 

Digit: GRAPHICS ! THIS ROUTINE CHANGES THE ANALOG POSITION 

POINTER F , 0 ! OF THE IMAGE PLANE ON THE GRAPHICS DEVICE 

DIGITIZE Z3,Y ! TO 'DIGITAL DATA FOR PROCESSING 

LINE TYPE 5 

MOVE Z3, Y bul let 
DRAW Z3 , -Y bul let 
SETGU 
LDIR 0 
LINE TYPE 1 
LORG 5 
CSIZE 2.5 

Cent erx = 72 . 5 ! CHANGE IN LAXES AS WELL 

MOVE 1 . 5*Cent erx , 2 
LABEL USING 19540JZ3 

IMAGE "Image Plane : " , DD. DD, " inch" 

SETUU 

CSIZE 15/4.54 
WAIT 2500 
EXIT GRAPHICS 
SUBEXIT 

Dump it: PRINTER IS 0 

PRINT CHR*^?)^ 1 &100T" 

DUMP GRAPHICS 

PRINT CHR$<27>&"&136T" 

PRINTER IS 16 
RETURN 
SUBEND 

SUB Xineg<X,Y> 

• OPTION BASE 0 
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19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780 

19790 

19800 

19810 

19820 

19830 

19840 

19850 

19860 

19870 

19880 

19890 

19900 

19910 

19920 

19930 

19940 

19950 

19960 

19970 

19980 

19990 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20180 

20190 

20200 

20210 

20220 

20230 

20240 

20250 

20260 

20270 

20280 

20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 



COM Alpha, Talpha,Rho,Trho, Rho_i nitial,Trhoi, Rho l,Trhol,Rho2,F,Z3,Z4 
! 

DEG 

A 1 phan*-l *A 1 pha 
TaJ phan-TAN< A 1 ph an ) 

DEF FNYl<Y)=Y+Talphan/<Talphan-Trho> ! FINDS THE Y-VALUE OF THE INTERCEPT 

! OF THE RAY AND THE FIRST SURFACE 
DEF FNX1<Y>=Y/Talphan ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 

! AND THE FIRST SURFACE 

Y*FNY 1 < Y ) 

Hoops: X = FNX 1 < Y) 

SUBEND 
SUB Density 
OPTION BASE 0 

i 

COM A1 pha, Tal pha, Rho, Trho, Rho_i nitial ,Trhoi ,Rhol,Trhol,Rho2,Trho2 
COM F , 23 , 24, Norm, Thet ai , Tde 1 t a 

COM Dat e* , P 1 ot * , F am i 1 y* , Chart S, Mai nS, Mai n 1 * , F 1 ag* , Y_hard* 

j 

COM Stuff*, Redraw* , Digitize*, Ray_ t r ac e* 

COM INTEGER I , J, Y0_1 oop, Nray , Nr ay_ chart , Nray_f am i 1 y , Nray — stuff 
COM INTEGER Nr ay_t r ac e , Nr ay_dens i t y , Add_r ay , Nc , Ns , Nbe t a, F 1 ag 

j 

COM INTEGER Li ne_c ount , L i ne_max , N_i ncrement,Hit_total ,Pselect,Hpib 
COM INTEGER Fam i 1 y , Surf _no 

COM REAL Theta cr i t i cal , Tol , Ni , N2, N3, Del ta ray , Y0 , Ya, Yb , Apert ure 
! 

COM Y_bul let, Smax_f am i ly,Percent_image 

COM Xl(*>, Yl<*>,Xc<0,X2<*>, Y2 < * > , X2max < * > , Y2max<*> 

COM Y3<*> , Y4<*) , Bet a<*> , S2<*> , XsurfmaxC*), YsurfmaxC*) 

i 

COM Qa<*>,Smax<*), A 1 pha2 < * > , Rho2 < * > , H i t <*) 

i 

INTEGER Inc, K,L,M, Lines 



DEG 

! THIS ROUTINE COMPUTES THE RAY DENSITY IN ONE DIMENSION. 

! ASSUMPTIONS: 

! 1) THE POINT OF MAXIMUM RAY DENSITY HAS BEEN FOUND VIA A 

! DIGITIZE STATEMENT. 

! 2> THE VALUES OF Y3 HAVE NOT BEEN CHANGED TO REFLECT THE 



! NEW VALUE OF 23 

i 

PRINTER IS 16 
Nray_dens i t y=Nray_st uf f 
Re draw: FOR I»1 TO Nray — density 
A*Xc < I ) 

X»X2<I> 

Y*Y2< I ) 

Rho2*Rho2< I ) 
Trho2*TAN<Rho2> 

Same: De 1 t ay*<23-X > *Trho2 

Y3*Y + De 1 1 ay 
Y3 < I ) *Y3 

Del t ay»< 24-Z3 > *T rho2 
Y4< I )*Y3< I )+De 1 tay 
Next i: NEXT I 

Hit_zero: MAT Hi t-ZER<2001 ) 

Inc *0 

Ylast»-Y_bul let 
Delta*Y_bul let/N^increme 
Ynext = Y 1 ast + De 1 1 a/2 



! RECOMPUTE THE VALUE OF Y3 



! ZERO THE ARRAY 
! FIND THE No. OF HITS IN THE INTERVAL 
! C-Y_BULLET, -Y BULLET +DELTA/2! 



HI t < Inc ) »0 

FOR 1*1 TO Nray_density 

IF C Y3< I ) >®Y last) AND <Y3< I >< Ynext > THEN Hi t < Inc >»Hi t < Inc )>1 
NEXT I 

Hit middle: ! FIND THE No. OF HITS IN THE INTERVAL 
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20370 
20380 
20390 
20400 
20410 
20420 
20430 
20440 
C ) + 1 

20450 

20460 

20470 

20480 

20490 

20500 

20510 

20520 

20530 

20540 

20550 

20560 

20570 

20580 

20590 

20600 

20610 

20620 

20630 

20640 

20650 

20660 

20670 

20680 

20690 

20700 

20710 

20720 

20730 

20740 

20750 

20760 

20770 

20780 

20790 

20800 

20810 

20820 

20830 

20840 

20850 

20860 

20870 

20880 

20890 

20900 

20910 

20920 

20930 

20940 

20950 

20960 

20970 

20980 

20990 

21000 

21010 

21020 



! C-Y_bul let+DELTR/2, Y_bu1 1 et -DELTA/2 ) 
FOR L* 1 TO 2 * N_ increment-1 
I nc = I nc ♦ 1 
Hi t <lnc>=0 
Y1 ast =Ynext 
Ynext=Y1ast+De1ta 

FOR 1 = 1 TO Nray density 

IF <Y3< I ) >=Ylast > AND < Y3 < I ) < Ynext > THEN Hi t < I nc > = H i t < I n 



NEXT I 
NEXT L 



Hi t_l as t : I nc = 2*N increment ! FIND THE No. OF HITS IN THE LAST INTERVAL 

Hit<lnc>=0 ! CYJduII et-DELTA/2, Y^bullet] 

Y 1 ast »Y_bul let-Delta/2 

Ynext =Y_b u 1 1 et 

FOR 1 = 1 TO Nray_density 

IF <Y3< I) >=Y1 ast ) AND <Y3< I )<=Ynext ) THEN Hit<Inc)*Hi t<Inc)+l 
NEXT I 

Normalize: Hit_total*0 ! NORMALIZE THE No. OF HITS ON THE 

FOR 1=0 TO 2*N increment ! IMAGE PLANE <Z3> TO THE TOTAL 

Hit total=Hit_total +Hit <1 ) ! No. OF HITS 
NEXT T 



IF Hit_tota1=0 THEN None 
FOR 1=0 TO 2*N increment 
Hit (I>=Hit<l7/Hi t total 
NEXT I 

None: Pct=Hi t_tot al /Nray_densi ty 

Perce nt_image=Pct*l 00 
Graph: CALL Plot 

IF Hit_total=0 THEN Labe1_ 
First_bar: X 1 ast =-Y_b u 1 1 et 

Xnext=X1ast+De1 ta/2 ! INTERVAL 
lnc*0 

IF H i t < Inc > = 0 THEN Middlemans 
CLIP XI ast , Xnext , 0 , H i t < Inc >~ 



! * OF RAYS THAT ARRIVE AT THE 
! IMAGE PLANE 
! PLOT AND LABEL THE AXES 

! DRAU THE HISTOGRAM 

C-Y_bul 1 et , -Y_bu! 1 et +DELTA/2) 



FRAME 

GOSUB Del t 

Mi ddl e^bars: FOR 1=1 TO 2*N_i ncrement-1 ! INTERVAL 

Inc=Inc+ 1 Y C -Y_bu 11 et +DELTA/2 , Y_bul let-DELTA/2) 

X 1 ast=Xnext 

Xnext=X1ast+De1ta 

IF Hi t < Inc >=0 THEN Next_i_™ 

CLIP XI ast , Xnext , 0, Hi t < Inc ) 

FRAME 

GOSUB Belt 
Next i_m: NEXT I 

Last_b*r** Inc = 2*N increment ! INTERVAL CY bu 1 1 et -DELTA/2 , Y_bu11et3 

X 1 ast =Y~bu 1 let -Delta/2 
Xnext =Y bullet 

IF H i I nc > =0 THEN Label_ 

CLIP XI ast , Xnext , 0, Hi t < Inc > 

FRAME 

GOSUB Del t 

Label : Di gi t i ze*= M N w 
FI ag*3 

CALL Graph 
SUBEXIT 



Delt: Lines=10 

Del t=< Xnext -XI ast )/Lines 



X=X 1 ast -De 1 t 
FOR J = 1 TO Lines 
X=X+De 1 t 
MOVE X,0 
DRAU X, H i t < Inc ) 
NEXT J 
RETURN 
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21030 SUBEND 

21040 SUB Min<Xm<*>,X, INTEGER M> 

21050 OPTION BRSE 0 
21060 ! 

21070 DIM Xm < M > 

21080 ! • 

21090 ! THIS ROUTINE FINDS THE MINIMUM ELEMENT IN R ONE D I MENS I ONRL RRRRY 

21100 ! 

21110 X=Xm < 0 > 

21120 FOR 1*1 TO M 

21130 X*Min<X,Xm<I>> 

21140 NEXT I 
21150 SUBEND 

21160 SUB Max<Xm<*>,X, INTEGER M> 

21170 OPTION BRSE 0 
21180 ! 

21190 DIM Xm < M > 

21200 ! 

21210 ! THIS ROUTINE FINDS THE MRXIMUM ELEMENT IN R ONE D I MENS I ONRL RRRRY 

21220 ! 

21230 X=Xm < 0 ) 

21240 FOR 1*1 TO M 

21250 X*MRX<X,Xm< I>> 

21260 NEXT I 
21270 SUBEND 
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APPENDIX B 



TRACE PROGRAM DESCRIPTION AND PROGRAM LISTING 

TRACE was the first program written for this thesis. 
TRACE was written for the purpose of automating the task 
of drawing the ray diagram produced when tracing rays 
through a conical lens with various second surfaces. The 
program consists of a set of subroutines called from a 
control program which are designed to perform a specific 
task(s). A detailed description of each subroutine will 
not be given because TRACE has extensive documentation 
included within the program. However, an abbreviated 
discussion of the geometric relationships at the first 
and second surfaces and the bisection routine in subroutine 
BINARY SEARCH follows. 

TRACE occupies approximately 145 Kbytes of memory which 
is approximately 77% of available memory (11) . A listing 
of TRACE is at the end of this appendix. 

TRACE was designed to calculate the trajectory of up to 
250 rays incident upon the first surface in the upper half- 
plane as illustrated in figure B-l. All of the parameters 
shown in figure B-l are provided by the operator except Z4 , 
the location of the permanent Image plane, which is set for 
Z4 = 50 inches. All of the parameter values provided by the 
operator have default values declared either in subroutine 
DIALOGUE, line number 13810 or the MAIN routine, line number 
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Y-BULLET 
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Figure B-l. Symbol Definition for the GLM. 



TRACE calculates the complete trajectory of each ray 
before proceeding to the next ray. Each surface is assigned 
a number with the vertical axis, y, defined as the zeroth 
surface. All incident rays originate on the y-axis and are 
assumed to be parallel with the source at infinity. The 
first surface shown in figure B-2 encountered is the exterior 
of the conical spike which, in two dimensions, is a plane 
perpendicular to the meriodional plane, the paper, with a 
cone half-angle a. The incident angle makes an angle of 
incidence 0j with the first surface normal n at point T 
according to 



Q z = j (a + |p I |) 

Noting that a = a 2 , p R = |NORM|- 0 r , NORM = a 2 - ^ (B— 1) 

and applying Snell's Law sin0 R = (n^/n 2 )sin0 I (B-2) 

yields 



p R = a 2 + 9 r -| 

the ray angle in the lens referred to as Pi in chapter III 
and Appendix F. As the incident ray angle Pj increases the 
angle of incidence 0^ decreases to zero when the incident 
causing 0 to transition through the normal as shown in 
figure B-3, subroutine SNELL in TRACE detects this transition 
as a change in sign in 0-j.. Snell's Law is defined with all 
arguments positive. Therefore the magnitude of 0^. is used 
to determine 0 R and thus p R according to 
sin0 R = (n 2 /n^)sin0 I yielding 

9 r = a * + 9 r - ! (B - 3) 

which is the same result for 0^ >0. 
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FIRST SURFACE 
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Figure B 2. Geometry and Symbol Definition for the Application of 
Snell's Law at .the First Surface of the Conical Lens. 
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The application of Snell's Law at the second surface of 
the lens is very similar to the first surface. The geometry 
for >0 is shown in figure B-4 and for 0^ < 0 in 

figure B-5. Some of the rays inside the lens may intercept 
the GLM axis at x < zl and therefore may intercept the 
branch of the second surface in the lower half-plane. The 
geometry for this case is shown in figure B-6 . A significant 
difference between rays intercepting the positive and negative 
branches of the second surface is the definition of the normal 
direction n. In figures B-4 and B-5 the direction of n is 
into the lens where- in figure B-6, n is defined to be out of 
the lens. Practically, this contradiction in definition has 
no effect on TRACE because the angle of the normal used in 
applying Snell's Law has always been the acute angle as la- 
beled in all of the figures. The direction of n in figure 
B-6 was changed to reflect the change in sign of NORM. 

The search for and calculation of the intercept of the 
ray refracted at the first surface and the second surface is 
accomplished in subroutine BINARY SEARCH. The primary method 
used is the bisection method illustrated in figure B-7. The 
bisection method can only be applied where the ray in the 
lens is known to intercept the second surface of the lens. 
Examples of rays which do not intercept the second surface 
are shown in figures C-2, C-5 and C-10. The method used for 
the rays which do not intercept the second surface is dis- 
cussed later. 
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Figure B-4. Geometry and Symbol Definition for the Application of 

Snell's Law at the Positive Branch of the Second Surface 
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SECOND SURFACE 
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beometry and Symbol Definition for the. Application of 
Snell's Law at Negative Branch of the Second Surface 
of the Conical Lens. 
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BINARY SEARCH. 



The bisection method converges to the intercept value 
quickly, especially if the ray is nearly normal to the second 
surface. The sequence of events is depicted in figure B-7 by 



the circled numbers 1 , 2 , etc. Assuming pj is known, 

the intercept of the GLM axis. A, of the ray in the lens is 
found. The first step in the bisection sequence, 1 is to 
find the midpoint of QA. The midpoint of QA, (x^^, is 

calculated under label Recurse _p, line 7440 of TRACE. The 
midpoint is then compared to the value of the second surface 
at y=y m ^£. The midpoint in figure B-7 is behind the second 
surface. Step 2 finds one midpoint of the line segment from 
Q to the midpoint of QA. A comparison is again made with 
the second surface. Now, the present location is ahead of 
the second surface. Step 3 is executed and the location is 
again compared with the second surface. The process conti- 
nues until the difference between the present location on 
the ray (x m ^, y^^) and the true value of the intercept 

^ x 2' ^mid^ ' l x mid” x 2l ^ s l ess than a specified tolerance, 
tol = lO”^. Once the intercept of the ray and the second 
surface has been found then go to label Done, line 8140, to 
define the (x, y) coordinates of the intercept. The x- 
coordinate is defined as the average of the present location 
on the ray, x^^, and x2, the value of the second surface at 



^mid* 

The ray may pass ahead, shown by A < Zl, of the second 
surface. The test for A < Zl is conducted in line 6860. 
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If the test is true a jump to line 7720 is performed. A test 
is conducted in line 7870 to determine if the ray intercepts 
the negative branch of the second surface. If the test is 
true then a jump to line 8080 is made, to prepare to enter the 
bisection method for the negative branch, which is identical 
to the method for the positive branch described above. The 
test performed in line 7870 will not detect a ray that is 
just tangent to the second surface. The slow march method, 
lines 7840 to 8000, is employed to search and find the inter- 
cept (A, 0) and marches down the ray until the second 
surface intercept is found within the tolerance, or the wall 
of the GLM, y = -Y_ bullet is reached. If y = -Y_ bullet 
then the march is terminated and a jump to line 8250 via 8150 
is made to exit the subroutine. 

A special case exists when 0^ < 0. The ray in the lens 
could intercept the positive branch. A test is conducted in 
line 7010 to determine if the ray intercepts the positive 
branch. If the test is true a jump is made to line 7330 for 
entry into the bisection method. If the test fails then the 
marching method is used. The application of the marching 
method for this case is made from line 7100 to 7320. 

Another special case exists when the polynomial used to 
describe the second surface causes the second surface to 
intercept the first surface at |y| < Y_ bullet. The test 
for this case is conducted in line 7370 for the positive 
branch and line 7770 for the negative branch. If the test 
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is true, then a jump is made to line 8280 and the subroutine 
is exited. 

The "success"- of a conical lens is whether light rays can 
be focused to a point. Success is determined two ways. The 
first is the ray diagram; compare figures 14, 22, C-2, C-10 
and C-16 for the ability of each lens to focus light rays. 

The second method is by a histogram of the ray distribution 
on the image plane. The desired histogram is a delta func- 
tion at the origin as shown in figures 15 and 23. Undesir- 
able histograms are shown in figures C-3, C-7 , C-13, C-14 and 
C-17. The histogram is calculated by dividing the image 
plane in the upper half -plane into an even number of intervals 
equal to N_increment. The division of the image plane is also 
performed in the lower half plane as shown in figure B-8. The 
intervals are arranged such that the GLM axis is straddled by 
the center interval, thus adding a half -interval to each, 
extremity of the image plane. Hence, the total number of 
intervals is then 2*N_increment +1. The generation of the 
histogram is executed in subroutine DENSITY, line 17920. 

The algorithm checks each interval for an intercept of a ray 
with the image plane in lines 18440 to 18820, DENSITY then 
normalizes the distribution to the number of hits on the 
image plane, not the total number of rays in lines 18830 to 
18930. The percentage of the rays striking the image plane 
is calculated in lines 18920 and 18930 and displayed to the 
operator by subroutine LAXES in lines 12870 and 12880. The 
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percentage label serves to remind the operator that the 
histogram represents the distribution of the rays actually 
striking the image plane within the boundaries of the GLM. 

The subroutines in Table B-l were copied or derived 
from the HP-9845B utilities library for use in TRACE. 
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TABLE B-I 



SUBROUTINES DERIVED FROM THE HP-9845B UTILITIES LIBRARY 



Name' 


Line No. 


Main 


18 


Plot 


10170 


Laxes 


11430 


Dialogue 


13810 
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TRACE PROGRAM LISTING 



10 NORMAL 
20 PRINTER IS 
30 PRINT PAGE 
40 FIXED 2 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
30 PRINT 
100 DISP 
110 WRIT 



16 



***«**************************************^**********************-**** 
* * 

* TRRCE * 

* * 
********* + *** + ** + *************#************* + **********#*******+‘-* + *** 
THIS IS TRRCE" 

1500 



120 Mai n J OPT I ON BRSE O 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 



! 

COM 
COM 
COM 

i 

COM 
COM 
COM 

i 

COM 
COM 
COM 

j 

COM 

! 

INTEGER 2z,Char_ max 
DISP M " 

OVERLAP ! 

CALL Dialogue 

DEG 



INTEGER I , J , Curve , Up, Nn, N, Ns , Nr , REAL Aneg< 17) , Apos< 17) , A< 17) , Zl , Z3, Z4 
A 1 pha, Tal pha, Rho, Trho , Rho_i n i t i al , Trho i ,Phi , To 1 , Norm , A 1 pha2 
N 1 , N2, N3, Per c ent_i mage , Ya, Yb , Apert ure , Y_bu 1 lei 

INTEGER Y0_ 1 oop , Nray , Add_ r ay, Surf_no , FI ag, F 1 ag2 , N_i ncremeru , H i t _t o t al 
INTEGER L i nec ount , L i nemax 
INTEGER Pselect,Hpib 

REAL Nm i n , Nmax , R0_max 

Ray_ trac eS , Digi t i zeS , Gr i n$ , Q$ f Gr i nc$ , P 1 ot $ , Dat et 
X<1250), Y< 1250), Xc< 250), N< 250), R( 250) 

Rho< 750 ) , Ph i <250), C< 250), Y3<250),Hi t <2001) 



SEE THE 9845 OPERATING AND PROGRAMMING MANUAL 



330 Comments: 
340 



560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 



350 


! LIGHT RAY AS 


360 


! OF FLAGS USED 


370 


! AND THE DECLAI 


380 


i 


390 


! FLAG : 


400 


! 1) 0 *> 


410 


! 1 


420 


! 2) 1 => 


430 


! 1 


440 


! 3) 5 *> 


450 


j 


460 


! 4) 10 *> 


470 


j 


480 


! 5) 15 *> 


490 


j 


500 


j 


T 




510 


j 


520 


! 6) 20 *> 


530 


! 


540 


1 


550 


! 7) 30 *> 



FLAGS ARE USED THROUGHOUT THE PROGRAM TO INDICATE VARIOUS 
CONDITIONS WHICH INFLUENCE THE BEHAVIOR AND TREATMENT OF THE 

IT PASSES THROUGH THE LENS SYSTEM. THE EXPLANATION 
IN THE GENERATION OF THE RAY DIAGRAMS 



DECLARED IN MAIN AND BINARY SEARCH 
RESET CONDITION 
DECLARED IN BINARY SEARCH 
RAY INTERCEPTS THE NEGATIVE BRANCH 
DECLARED IN SNELL 
Theta I < 0 DEGREES 
DECLARED IN SNELL 
TOTAL INTERNAL REFLECTION 
DECLARE IN SNELL 

THE RAY LEAVES THE SECOND SURFACE WITH 
ABS<RH0) > 90 DEGREES < THE RAY WILL NOT INTERCEP 

THE IMAGE PLANE) 

DECLARED IN BINARY SEARCH 

THE RAY MISSES BOTH THE POSITIVE AND NEGATIVE 
BRANCHES FOR Thetal > OR < 0 DEGREES 
DECLARED IN BINARY SEARCH 

THE SECOND SURFACE BENDS AROUND AND CROSSES THE 
FIRST SURFACE 



DECLARED IN MAIN AND BINARY SEARCH 

RESET CONDITION 

DECLARED IN BINARY SEARCH 

THE RAY INTERCEPTS THE NEGATIVE BRANCH 



FI aq2 
1) 



2) l => 



NOTE : THESE ARE NOT ALL OF THE FLAGS, JUST THE ONES AFFECTING 
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RAYS 



670 

680 

690 Gymnastics 
700 
710 
r dS 



Y_hardS= M N" 

FI ag2S=" 1 " 
INPUT “DO TOU 



WANT A HARD COPY 



OF THE COMPUTED 



DATA? Y^N" , Y_h 



720 

730 

740 

730 

760 

770 

780 

790 

800 

N H ,Y hands 
810 
820 
830 
840 
350 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 

970 Image_p: 

980 Image_n: 

990 

1000 

1010 

1020 

1030 

1040 

1050 Ini t i al i ze 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1 130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 

1210 Y0 loop: 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 • 

1310 



IF <Y_hardS="N" > OR <Y_hard$ = "n" ) THEN Flagas*'^" 

GOSUB Yhard 
GOSUB Printer 
BEEP 
PAUSE 

IF < G S = " Y " > OR < G S * “ y " > THEN GOSUB Header_grin 
IF < G S = “ Y " ) OR <GS = ,, y") THEN Initial i ze_run 
Y hards* '*N M 

INPUT " DO YOU WANT A HARD COPY OF THE COEFICIENTS PRINTED ^ Y 

IF < Y hardS="N" > OR < Y _hardS=" n " ) THEN 1000 
GOSUB~Yhard 
GOSUB Header_coef 
FOR 1*0 TO Np 

IF L i nec ount >L i nemax THEN GOSUB Header_coef 
PRINT USING Image_p; I , Apos < I > 

Linecount=Linecount+l 
NEXT I 

IF Li recount >L i nemax THEN GOSUB Header coef 
PRINT 

Linecount=Linecount+l 
FOR I*0 TO Nn 

IF Linecount >Li nemax THEN GOSUB Header_coet“ 

PRINT USING Image_n; I, Aneg<I) 

Linecount*Li necount+1 
. NEXT I 

IMAGE 25X, "AposC "DD" ) * “ , K 
IMAGE 25X, " Aneg< "DD M ) * " , K 
GOSUB Header_coef_end 
PRINT L IN < 2) , “PRESS CONT M 
PAUSE 

IF FI ag2S=" 1 ** THEN Y hardS* ,, Y ,, 

GOSUB Yhard 
GOSUB Header 
_run: Sur f_no=0 
Z 1 *Apos C 0 > 

IF < G S * " Y " > OR < G S = " y " ) THEN Z3=15 
Y0_mi n=Ya*< Tal pha-Trho i >/Ta1 pha 
Y0 max=Yb*< Tal pha-Trho i >/Ta1 pha 

Xnray*Nray ! TO KEEP FROM USIN MIXED MODE ARITHMETIC 

Del y=< Y0_max-Y0_m i n)/Xnray 
Y0 mi n=Y0_mi n-De 1 y 

IF Ya*0 THEN Y0_min*Y0_min+Dely 
Nray*Nray+Add_r ay 
Ns*- 1 ! COUNTERS 

Nr*-1 
Xc<0)*0 
N < 0) *0 
Phi <0)*0 
C<0>*0 

FOR Y0 loop*l TO Nray 

Flag*0~ ! RESET FLAG 

Flag 2=0 

X*0 

Rho=Rho_i n i t i al 
Trho*TAN< Rho > 

Xy0_1 oop*Y0_l oop 

Y*Y0 m i n + De l y*Xy0_l oop 

Ns*Ns*l 

Nr *Nr+ 1 

X< Ns > *X 
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1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

16O0 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

Nsp- 

1860 

1870 

1880 

1890 

Nsp- 

1900 

1910 

1920 

1930 

1940 

DD,X, 

1950 



Y ( Ns )* Y 
Rho<Nr )*Rho 
One: Surf_no*l 
Ns*Ns+ 1 
Nr=Nr+ 1 

CALL Bi nary_search < X, Y) 

X < Ns ) S X 
Y < Ns ) *Y 

CALL Sne 1 1 < X , Y ) 

Rho < Nr > =Rho 

IF <C$* ,, Y U > OR < G$= "y " ) THEN Ph i < Y0_1 oop ) =Ph i 
Two: Surf_no=2 
Ns-Ns+ 1 
Nr*Nr+ 1 

CALL Bi nary_search<X, Y) 

X < Ns ) S X 
Y<Ns ) *Y 

IF <G$="Y”) OR < G$= "y " ) THEN Blind 
IF FI ag=20 THEN BI l nd 
IF FI ag=30 THEN Flag 30 
CALL Sne 1 1 <X, Y) 

RhoCNr )*Rho 

F1ag_15: IF FlagOl5 THEN Flag 10 
GOTO Blind 

Flag_10: IF FlagOlO THEN Three ! FLAG 30 WHEN FIXED 

Xc<Y0 1 oop)=0 
Rho< Nr ) = 0 
GOTO Blind 

Flag_30: IF Flag<>30 THEN Three 

Xc < Y0_1 oop)=0 
Rho< Nr ) = 0 
GOTO Blind 

Three: Surf_no=3 ! FIRST (MOVABLE) IMAGE PLANE 
Ns=Ns+ 1 

CALL Binary search<X,Y) 

X< Ns ) *X 
Y< Ns ) a Y 

Four: Surf_no*4 
Ns=Ns+ 1 

CALL Binary_search<X, Y) 

X < Ns ) *X 
Y < Ns ) =Y 

GOTO Next_y0 loop 

Blind: Ns*Ns+ 1 T THE RAY CROSSED AHEAD OF THE SECOND SURFACE 

X<Ns)*0 ! AND WAS NOT REFRACTED 

Y<Ns)*0 
Ns»Ns+l 
X < Ns )*0 
Y<Ns)*0 

Next_y0 loop: FIXED 2 
Nsp=Ns-l 

IF <G*»”Y M ) OR <G$* H y") THEN Print_grin 
IF Li necount >Li nemax THEN GOSUB Header 
PRINT USING Image_data;X<Nsp-3>; Y < Nsp-3 ); X < Nsp-2 ); Y < Nsp-2 ); X < 
); Y(Nsp-i);xc<Y0 - ioop);o;x<Nsp); Y<Nsp);Rho 
L i recount »L i nec ount ♦ l 
GOTO Continue 

Print_ grin: IF L i nec ount >L i nemax THEN GOSUB Header_grin 

PRINT USING Image_data_g;X<Nsp-3);Y<Nsp-3);X<Nsp-2); Y(Nsp-2);X< 
) ; Y<Nsp-i) ;Xc<Y0_i oop);0;N<Y0_i oop); Rho 
L i nec ount =L i nec ount ♦ 1 
Continue: NEXT Y0_ loop 

j 

i 

lmage_dat a: IMAGE X<2<D. DD, X, DD. DD, 3X) , DD. DD, X, DD. DD, IX, 6D. DD, X, D. DD, 3X, 3D. 
4D. DD, 3X, 4D. DD) 

! Image_data: IMAGE D, 2X, DD. DD, 3X, DD. DD, 2X, DD. DD, 3X, DD. DD, 2X, DDD. DD, 3X,5D.2 
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D,2X,D,3X,DD.DD,2X,5D.DD,3X,4D.DD ! USE THIS FOR Y BULLET > 10 INCHES 

I960 i 

1970 Imagejata g: I URGE 7X(2(D.DD,XD.DD,3X),DD.DD,X,DD.DD,3X,3D.DD,X,D.DD,3X,DD 

.DD,3X,4D.DD> 

1980 ! 

1990 ! 

2000 
2010 
2020 
2030 
2040 
2030 
2060 
2070 
2080 
$ 

2090 
2100 
2110 
2120 



GOSUB Header_end 
GOSUB Yhard_end 
PRINT LIN(2>, "FINISHED" 

BEEP 

WHIT 250 
BEEP 

IF (G$="Y"> OR (G*="y"> THEN Graph_grin 
Ray trace$="N" 

INPUT "DO YOU WANT TO PLOT THE RESULTS OF THE TRACE ? Y/N " , Ray_t race 



IF (Ray trace* = "N"> OR (Ray tracel*"n") THEN Rerun 
INPUT "ON~WHICH DEVICE: CRT (C> OR THE 9872 (P> ? P/C", Plot* 

IF (PI ot $«"C" > OR (Plot#*"c"> THEN Graph 
INPUT "PLEASE ENTER THE SELECT CODE OF THE GRAPHICS DEVICE (DEFAULT 
» 7 > " , Pse 1 ec t 

2130 INPUT "PLEASE ENTER THE HPIB ADDRESS OF THE GRAPHICS DEVICE (DEFAULT 

* 5 >" ,Hpib 

2140 Graph: CALL Graph 

2150 Y $ * " N " 

2160 INPUT "DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y / N " , Y $ 

2170 IF ( Y$="Y" > OR (Y$="y"> THEN Graph 

2180 Density: PRINTER IS 16 

2190 PRINT PAGE," The point of maximum ray density is determined by yo 

u ui sual 1 y . M 

2200 PRINT "by placing the cross-hairs (they will appear automatically) 



2210 

2220 

, down, <-,->). 
2230 
button" 

2240 

s" 

2250 

2260 

2270 

2280 

2290 

rays" 



PRINT "over the position of maximum density." 

PRINT " This is accomplished by using the D I SPLAY controls (up 

n 

PRINT "When you get cursor in the area of interest, use the SH I FT 

PRINT "with the D I SPLAY controls (both shift and display control 

PRINT "should be depressed si mu 1 1 aneous 1 y > for fine positioing." 
PRINT L I N ( 2 > , " The position of the vertical hair is critical," 
PRINT "because its location is used for the position of the " 
PRINT "image plane (Z3> on the GLM axis." 

PRINT LI N(2) , " CAUTION : Do not let the image plane intercept any 



2300 


PRINT 


"in the 


interior of the lens. If this 


is done, those rays" 


2310 


PRINT 


"will be 


included in the histogram." 




2320 


PRINT 


“PRESS CONT “ 




2330 


PAUSE 








2340 


PRINT 


PAGE, " 


The histogram is an illustration of the density" 


2350 


PRINT 


"of the 


rays that intercept the image 


plane versus radial " 


2360 


PRINT 


"distance from the GLM axis." 




2370 


PRINT 


LI N ( 2 ) , " 


When the position has been 


located, PRESS CONT." 


2380 


PAUSE 








2390 


Digit ize$=*"Y" 






2400 


CALL 


Graph 






2410 


IF Plot**"P M 


THEN 2460 ! P FOR HP-9872 PLOTTER 


2420 


Dump crt#*"N" 






2430 


INPUT 


"DO YOU 


WANT A HARD COPY OF THE PLOT ? 


Y/N " , Dump_c rt $ 


2440 


IF (Dump crt$="Y"> OR (Dump crt$="y"> THEN 


GOSUB Printer 


2450 


DISP " 


WORK IN' 


ON THE HISTOGRAM. . . " 




2460 


CALL 


Dens i t y 


! PRODUSE A HISTOGRAM OF THE RAY DENSITY 


2470 


IF Plot*= u P" 


THEN 2520 




2480 


Di gi t i 


zef ="N" 


' RESET CONDITION 




2490 


Dump c r t $ * " N '* 






2300 * 


INPUT 


"DO YOU 


WANT A HARD COPY OF HISTOGRAM 


? Y/N" , Dump_crt S 
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2510 IF <Dump_crt$="Y" ) OR < Dump_c r t * = " y " ) THEN GOSUB Printer 

2520 Y S * " N " 

2530 INPUT “DO YOU WANT TO REDRAW THE HISTOGRAM FOR A DIFFERENT IMAGE P 

LANE ? Y / N " , Y $ 

2540 IF <Y$="Y") OR <YS="y") THEN Z3 = 50 

2550 IF <Y$="Y") OR <Y*="y") THEN Graph 

2560 Digitized* "N" ! RESET CONDITION 

2570 Rerun! PRINTER IS 16 
2580 Y $ = " N " 

2590 INPUT " ARE YOU GOING TO MAKE ANY MORE RUNS? Y/N",YS 

2600 IF <Y*="N") OR <Y*="n") THEN Finished 

2610 Change$="N" 

2620 INPUT "ARE YOU GOING TO CHANGE ANY PARAMETERS < n2 , n3 , A 1 pha, Nr ay , OR 

RHQ- INITIAL)? Y/N " , Change $ 

2630 IF < Change* = "N" ) OR <Change$="n" ) THEN Gymnastics 

2640 GOSUB Printer 

2650 PRINT " If you do NOT want to change a particular parameter" 

2660 PRINT "PRESS CONT in respose to the prompt." 

2670 INPUT "WHAT IS THE NEW VALUE OF RHO-INITIAL ? " , Rho_i n i t l a 1 

2680 Rho_ i ni t i al = - 1 *ABS < Rho_ i ni t i al ) 

2690 Trho i =TAN < Rho initial) 

2700 INPUT "WHAT IS THE NEW VALUE OF ALPH A? " , A 1 pha 

2710 Talpha=TAN< Alpha) 

2720 INPUT "WHAT IS THE NEW VALUE OF Y BULLET ?",Y_bullet 

2730 INPUT "WHAT IS THE NEW VALUE OF Ya ?",Ya 

2740 INPUT "WHAT IS THE NEW VALUE OF Yb ?" , Yb 

2750 Add_ray=0 ! RESET CONDITION 



2760 


IF 


Ya>= Yb THEN 


BEEP 








2770 


IF 


Ya>=Yb THEN 


DISP 


"Ya MUST BE < 


Yb. 


PLEASE RE-ENTER Ya AND Yb. 


2780 


IF 


Ya>*Yb THEN 


WAIT 


2500 






2790 


IF 


Ya>=Yb THEN 


2730 








2800 


IF 


Yb>Y bullet 


THEN 


BEEP 






2810 


IF 


Yb>Y_bul let 


THEN 


DISP "Yb MUST 


BE 


< Y_bullet. PLEASE RE-ENT 


ER. " 
2820 


IF 


Yb >Y bul let 


THEN 


WAIT 2500 






2830 


IF 


Yb>Y~bul let 


THEN 


2720 







2840 Apert ure=Yb-Ya 

2850 IF Ya< >0 THEN Add_ray=l 

2860 INPUT "WHAT IS THE NEW VALUE OF n2?" ,H2 

2870 INPUT "WHAT IS THE NEW VALUE OF n3? H ,N3 

2880 INPUT "WHAT IS THE NEW VALUE OF Z3 ?",Z3 

2890 INPUT "WHAT IS THE NEW VALUE OF THE No. OF RAYS? " , Nr ay 

2900 INPUT "WHAT IS THE NEW No. OF INCREMENTS <1000 MAX ) ? " , N_i nc rement 

2910 Change$="Y" 

2920 GOTO Gymnastics 

2930 Craph_ grin: J=1 

2940 FOR 1 = 1 TO Nray 

2950 R< I )»SQR<X< J)^2+Y< J)^2) 

2960 C< I )*N< I )*R< I )*SIN<Phi <I>) 

2970 J= J+5 

2980 NEXT I 

2990 YS= "N" 

3000 INPUT "DO YOU WANT TO PRINT A TABLE OF GRIN AND THE GRIN CONSTA 

NT ? Y/N",Yf 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 



IF <Y*="N") OR <Y$="n") THEN 3150 
Y hard*»"N" 

INPUT "DO YOU WANT A HARD COPY OF THE TABLE ? Y/N",Y_hard* 
GOSUB Yhard 
GOSUB Header_c 
FOR 1=1 TO Nray 

IF L i nec ount >L i nemax THEN GOSUB Header_c 
PRINT USING 3090? I ,N< I) ,R< I ),Phi < I ) ,SIN<Phi < I ) ) ,C< I ) 
IMAGE 3X,4D,5(5X,4D.4D) 

Li necount=Li nec ount+1 
NEXT I 

GOSUB Header end 
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3130 

3140 

3130 

3160 

3170 

3180 

3190 

3200 

,YS 

3210 

3220 

3230 

3240 

3230 

3260 

nc S 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3330 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

, OR 

3440 

3430 

3460 

3470 

3480 

3490 

3300 

3310 

3320 

3330 

3340 

3330 

3360 

3370 

3380 

3390 

3600 

3610 

3620 

3630 

3640 

3630 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3730 

3760 



GOSUB Yhard end 

Y $ * M N " 

INPUT "DO YOU WANT TO PLOT THE RESULTS OF THE TRACE ? Y/N" , YS 
IF < Y $ = " N " ) OR (Y$*"n") THEN Grinc 
INPUT "ON WHICH DEVICE: CRT (C) OR THE 9372 <P) ? C/P ", Plots 
CALL Graph 

Y S 3 *' N " 

INPUT "DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE "> Y/N" 

IF (YS*" Y" ) OR ( Y S = " y " ) THEN CALL Graph 
Dump_crt S = " H" 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N" , Dump_crt S 
IF (Dump_crt S*"Y" ) OR < Dump_cr t $*" y " ) THEN GOSUB Printer 
Grinc: Gr i ncS*"N" 

INPUT "DO YOU WANT A GRAPH OF THE GRIN CONSTANT C(r) os r ? Y/N " , Gr i 



IF (Grinc**"N"> OR (GrincS*"n") THEN Rerun_grin 
INPUT "ON WHICH DEVICE: CRT (C) OR THE 9872 (P> ? C/P ", Plots 
Grinci: GrincS*"Y" 

CALL Graph 

GrincS*"N" ! RESET CONDITION 

Dump_crt S*"N" 

INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N " , Dump_crtf 
IF (Dump crtS*"Y" > OR (Dump crtS='*y") THEN GOSUB Printer 
Y S * " N “ 



INPUT "DO YOU WANT ANOTHER PLOT DRAWN ? Y/N",Y$ 

IF ( Y S * " Y " ) OR ( Y S * " y " ) THEN Grinci 
Rerun_grin: YS»"N" 

G $ * " Y " i INSURANCE 

INPUT "ARE YOU GOING TO MAKE ANOTHER RUN ? Y/N",YS 
IF < Y S * " N " ) OR ( YS*"n" ) THEN Finished 
Changes* "N" 

INPUT "ARE YOU GOING TO CHANGE ANY PARAMETERS < n2 , n3 , A 1 pha, Nr ay 
RHO-INITIAL)? Y/N", Changes 

IF (ChangeS*"N" ) OR C Changes* "n" ) THEN Gymnastics 
GOSUB Printer 



PRINT " If you do NOT want to change a particular parameter" 
PRINT "PRESS CONT in respose to the prompt." 

Add ray*0 ! RESET CONDITION 

INPUT "WHAT IS THE NEW VALUE OF RHO-INITIAL ? " , Rho_i n i t i al 
Rho i ni t i al *-l*ABS(Rho initial) 



Trhoi *TAN(Rho_i ni t i al ) 

INPUT "WHAT IS THE NEW VALUE OF ALPHA? ", A 1 pha 
INPUT "WHAT IS THE NEW VALUE OF Nmin ? M ,Nmin 
IF (Gri nS*"C" ) OR (Gr i nS*"c '* ) THEN 3570 
INPUT "WHAT IS THE NEW VALUE OF Umax ?" , Nmax 

INPUT "WHAT IS THE NEW VALUE OF RO max ?",R0 max 

INPUT "WHAT IS THE NEW VALUE OF n3?" ,N3 

INPUT "WHAT IS THE NEW VALUE OF THE No. OF RAYS? " , Nray 
INPUT "WHAT IS THE NEW VALUE OF Ya ?" , Ya 

INPUT "WHAT IS THE NEW VALUE OF Yb ?",Yb 



IF Ya>*Yb THEN BEEP 

IF Ya>*Yb THEN DISP "Ya MUST BE 

IF Ya>»Yb THEN WAIT 2500 

IF Ya>*Yb THEN 3590 



< Yb. PLEASE ENTER AGAIN" 



Aperture=Yb-Ya 

IF Ya<>0 THEN Add_r ay*Add_ray+ 1 
ChangeS*"Y" 

GOSUB Printer 

Changes* " N " ! RESET CONDITION 

GOTO Gymnastics 

Printer: IF (Changes*" Y" ) OR (ChangeS*"y " ) THEN Y_hard*="N" 

IF (Dump crtS*"Y"> OR ( Dump_crt S= "y " ) THEN Y hardS*"Y" 

IF (Y_hardS*"Y") OR ( Y_hardS* "y " ) THEN PRINTER IS 0 
IF (Y_hardS*"Y" ) OR (Y_hardS*"y " ) THEN PRINT CHRS ( 27 ) & " 2J 0OT " 
IF ( D um p_c r t S * " Y " ) OR 7Dump_c rt S= " y " ) THEN Crt 
GOSUB Header initial 
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3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3830 Grini: 

3880 

3870 

4 3 “ ; A l pha; 

3880 

3890 

3900 

3910 

3920 

3938 

3940 

3950 

3980 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 Crin2: 

4210 

4220 

4230 Grin3: 

4240 

4250 

B< 48 > ; " Yb 3 

4260 

4270 

4280 

4290 

4300 

4310 

4320 Grin4; 

4330 

4340 

4350 

4360 

4370 

4330 

4390 

4400 Grin5: 
4410 



IF C G * 3 " Y " ) OR CG* 3 "y"> THEN Grini 
FIXED 0 

IF L i nec ount >L i nemax THEN GOSUB Header_i n i t i a 1 
IF Date* 3 "" THEN 3330 

PRINT " Curve No: " ; Curve, TABC48) ; "Date: ";Date* 

GOTO 3840 

PRINT "Curve No: ";Curve 

Linecount 3 Linecount+l 
FIXED 2 

IF L i recount >L i nemax THEN GOSUB Header_i n i t i al 
PRINT LINC 1), "RH0< INITIAL) 3 Rho_i n i t i al degrees TAB < 43 > ; " A 1 ph 
"degrees" 

Linecount=Linecount+l 

IF Li necount >L i nemax THEN GOSUB Header_i n i t i al 
PRINT '' TANCRHO- INIT IRL> 3 " ; Trho i ; TAB C 43 ) ; " Tan < A 1 pha) 3 "jTalpha 
L i nec ount =Li necount + 1 
FIXED 5 

IF CG**"N" ) OR < G * 3 " n " ) THEN Grin2 
IF L i recount >L i nemax THEN GOSUB Header_i n i t i a 1 
PRINT LINCl), "nl 3 " ; N 1 ; TABC48 > ; " n3 3 ";N3 
IF CGrin*="C"> OR (Grin*="c") THEN 4010 
IF Li necount >L i nemax THEN GOSUB Header_i n i t i al 
PRINT LINCl), "Nm i n 3 " ; Nm i n ; TAB C 48 > ; " Nmax 3 ";Nmax 
Linecount 3 Linecount+l 
GOTO 4040 

IF L i necount >L i nemax THEN GOSUB Header^ i n i t i al 
PRINT LINCl),"Nmin 3 "JNmin 
Linecount 3 Linecount+l 

IF Li necount >L i nemax THEN GOSUB Header initial 
PRINT 

Li necount =Li necount + 1 
FOR I 3 1 TO Nr ay STEP 3 

IF L i necount >L i nemax THEN GOSUB Header_i n i t i al 
IF I > 3 250 THEN PRINT USING 4140;I,NCI> 

IF I > 3 250 THEN 4120 

PRINT USING 4130; I,NCI), I + 1,NCI + 1), I+2,NCI+2> 

Linecount=Linecount+l 

IMAGE 3C5X, "n2C"3D") 3 ",2D.5D> 

IMAGE 5X , " n2 C " 3D " ) = ",2D.5D 
NEXT I 

IF L i necount >L i nemax THEN GOSUB Header_i n i t i al 
PRINT LINC 1 ) , "R0_max 3 ";R0_max;" inches" 

Li necount 3 Li necount + 1 
GOTO Grin3 

IF L i necount >L i nemax THEN GOSUB He ader_i n i t i al 
PRINT LINCl), "nl 3 " ; N 1 ; TAB C 24 ) ; "n2 3 " ; N2; TAB C 43 > ; " n3 3 " ; N3 
L i necount *L i necount + 1 
FIXED 3 

IF L i nec ount >L i nemax THEN GOSUB Header_i n i t i at 
PRINT LINC 1 ), "Aperture 3 "; Apert ure ; TAB C 24 >;" Ya 3 "JYaJ" inch ";TA 
";Yb;" inch " 

IF CG* 3 "Y"> OR C G * 3 " y " ) THEN Grin4 
Li n ec ount 3 Li necount + 1 
FIXED 2 

IF Li necount >L i nemax THEN GOSUB Header_i n i t i al 
PRINT LINCl), "Z3 3 - ; 23; " i nches" ; TABC43>T m 24 3 ";Z4;" inches" 

L i necount =L i necount +1 
FIXED 0 

IF L i nec ount >L i nemax THEN GOSUB Header_i m t 1 al 
PRINT LINCl), "Number of Rays 3 ";Nray 
Lintcount=Lmecount + l 

IF CG* 3 "Y") OR C G * 3 " y " ) THEN Grin5 
IF L i nec ount >L i nemax THEN GOSUB Header J ni t i al 
PRINT L INC 1 >, "Number of Increments 3 ";N^increment 
Li necount=Li necount+1 
FIXED 2 

IF L i nec ount >L i nemax THEN GOSUB Header initial 
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4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 



PRINT 

Linecount*LinecountM 
GOSUB Header_end 

Crt: IF <Dump_crt*="Y" > OR < Dump_crt S="y H ) THEN DUMP GRAPHICS 

IF <Y hard* 3 " Y" ) OR (Y hard«="y") THEN PRINT CHR*<27>Sc"SJ 36T" 
Change* 3 " N" ! RESET CONDITION 

Dump_crt * 3 " N" 

Y hard*="N" 

RETURN 

Yhard: IF < Y_hard*=" Y " ) OR (Y hard$*‘y) THEN Flag*- "l" 

IF <Y hard*-"N" > OR < Y_hard*- "n" ) THEN F1ag* 3 "0" 

IF <Y~hard*= M Y"> OR <Y hard*»"y"> THEN PRINTER IS 0 
IF F 1 ag*= " 1 " THEN PRINT CHR* < 27 >& " S* 1 00T" 

RETURN 

Yhard_er.d: IF <F1ag*="t"> OR <Fl ag* = "0" > THEN PRINT CHR*<27>8<"*c1 36T" 

IF <F 1 ag*=" 1 " > OR <F1ag*="0") THEN PRINTER IS 16 
RETURN 

Header_coef: IF L i necount >L i nemax THEN GOSUB He ader_c oef_end 

Li necount =0 
PRINT PAGE;LIN<5> 

GOSUB Char_short 

PRINT L IN < 1 > ;SPfl<6>; "COEFFICIENTS"; LIN< 1 ) 

GOSUB Char_short 
PRINT L I N < 2 > 

RETURN 

Header_coef _end: PRINT LIN<2) 

GOSUB Char short 
RETURN 

Header_c: IF L i nec oun t >L i nemax THEN GOSUB Header_end 

L i necount -0 
PRINT PAGE;LIN(5) 

GOSUB Char 

PRINT LIN<1), " I n ( I ) r<I) PhiCI) 

Si n< Phi > c<I) H ;LIN<l) 

DISP " I n< I ) r<I) Phi<I) 

SinCPhi) c<I>" 

GOSUB Char 
PRINT LINC2) 

RETURN 

Header c end; GOSUB Header_end 
RETURN 

Header^i n i t i al ; IF L i necount >L i nemax THEN GOSUB Header_end 

L i nec ount = 0 

PRINT PAGE;LINC5);TAB<23); "INITIAL PARAMETER VALUES" ; LIN< 1 
GOSUB Char 
PRINT L I N<2 ) 

RETURN 

Char short: Char max=25 

FOR 2*0 TO Char_max 

IF Z*Char_max THEN PRINT CHR*<228> 

IF Z»Char~max THEN 4920 
PRINT CHR*<223); 

NEXT 2 
RETURN 

Header: IF Li necount >Li nemax THEN GOSUB Header_end 

L i necount =0 
PRINT PAGE, LINC5) 

GOSUB Char 

PRINT LINC1), " <X0, Y0> 

CX3, Y3> RH0";LIN<1) 

GOSUB Char 
PRINT L I N< 2 ) 

DISP " <X0,Y0) 

<X3,Y3> RHO" 

RETURN 

Header_gr l n : IF Li necount >L i nemax THEN GOSUB Header_end 

L i necount =0 



<X1,Y1> <X2,Y2) <Xc , Yc ) 

< X 1 , Y l ) <X2,Y2> < Xc , Yc > 
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3030 

3060 

3070 

<Xc 

3080 

<Xc 

5090 

3100 

5110 

3120 

3130 

3140 

5130 

3160 

3170 

3180 

3190 

5200 

3210 

5220 

3230 

5240 

5250 

3260 

3270 

3280 

3290 

5300 

3310 

3320 

3330 

5340 

5330 

3360 

5370 

5380 

3390 

3400 

3410 

3420 

3430 

5440 

3430 

3460 

5470 

5480 

3490 

5500 

3310 

3520 

5530 

5340 

5550 

5360 

3370 

3580 

5390 

3600 

3610 

3620 

3630 

5640 

3630 

3660 

3670 

3680 

3690 



PRINT PAGE , L I N < 5 ) 
GOSUB Char 







PRINT LIN< 1) , “ 


<X0, Y0) 


< X 1 , Y 1 ) 


<X3, Y3> 


Yc) 


N2 


RH0";LIN< 1) 












DISP “ . 


<X0, Y0) 


<X1 , Y1 ) 


<X3, Y3> 


Yc ) 


N2 


RHO" 









GOSUB Char 
PRINT L IN < 2 ) 

RETURN 

Header_end: PRINT LIN<2> 

GOSUB Char 
RETURN 

Char: FOR Zz=0 TO 79 

IF Zz=79 THEN PRINT CHR$<223> 

IF Zz=79 THEN 5190 
PRINT CHR*<223); 

NEXT Zz 

! PRINT RPT*<"* I, ,30> i THIS IS A LOT FASTER, BUT NOT AS PRETTY 

RETURN 

Finished: DISP “FINISHED" 

END 

SUB S 1 ope < Y ) 

OPTION BASE 0 

j 

COM INTEGER I , J , Cur ve , Np , Nn , N , Ns , Nr , REAL Aneg<*) , Apos< *) , A< *) , Z1 , Z3, Z4 
COM Alpha, Talpha,Rho,Trho, Rho_i n i t i al , Trhoi , Phi , Tol , Norm, Al pha2 
COM Nl,N2,N3,Percent_image,Ya,Yb,Aperture, Y_bu l 1 et 
! 

COM INTEGER Y0_1 oop , Nr ay , Add_ray , $urf_no , F 1 ag , F 1 ag2 , N_i nc re men t , H i t _t ot al 
DEG 

IF Sur f_no=2 THEN Two 
One: Alpha2=Alpha 

Norm=Al pha2-90 
SUBEXIT 

Two: IF Y<0 THEN Negative 

Positive: Tan m2=0 ! SLOPE WRT Y-AXIS Cdx/dyl 

F0R“l=l TO Np 

Tan_m2=Tan_m2+ I *Apos < I)*YMI-1) 

NEXT T 

M2 = ABS<ATN< Tan_m2) ) ! THE ANGLE IS POSITIVE CW WRT Y-AXIS 
A 1 pha2=90-M2 ! THE ANGLE IS POSITIVE CCW WRT X-AXIS 

Norm*A1 pha2-90 
SUBEXIT 

Negative: Tan m2=0 

F0R~I*1 TO Nn 

Tan m2 3 Tan ro2+I*Aneg< I )*Y*< 1-1 ) 

NEXT I 

M2*ABS<ATN<Tan m2)) 

A 1 pha2»90-M2 
Tnorm*- 1/TAN< A 1 pha2 ) 

Norm*ATN<Tnorm>- 180 
SUBEND 
SUB Snel 1 < X , Y ) 

OPTION BASE 0 

COM INTEGER I , J, Curve, Np, Nn, N, Ns, Nr , REAL Aneg < * ) , Apos < * ) , A < * ) , Z 1 , Z3 , Z4 
COM Alpha,Talpha,Rho,Trho, Rho_i nit ial , Trhoi ,Phi , Tol , Norm , A 1 pha2 
COM N1,N2,N3, Percent — i mage ,Ya,Yb, Aperture, Y_bu 1 1 e t 

COM INTEGER Y0_1 oop, Nr ay, Add_ ray, Surf_no, FI ag, FI ag2 , N_i ncrement , Hi t_tot al 
COM INTEGER L i nec oun t , L i nemax 
COM INTEGER Pselect,Hpib 

i 

COM REAL Nm i n , Nmax , R0_max 

• COM Ray_t r ac e* , Digitizes, Gr i n$ , G* , Gr i net. Plots, Dates 
COM X<*), Y<0,Xc<*),N<*),R<*) 
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3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
5780 
3790 
3800 
3810 
3820 
3830 
3840 
3830 
ho ) 
5860 
5870 
3880 
5890 
3900 
5910 
5920 
5930 
5940 
3930 
3960 
5970 
3980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6223 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 



} 

DEG 

IF Surf_no=2 THEN Two 
On®: Nn 1 =N 1 
Nn2=N2 

Th«t ai =90-CAlpha+ABSCRho)) 

CALL SlopeCY) 

IF Thetai<0 THEN Neg_thetai 
GOTO Same 

N*g_thetai: Flag=5 

Thet ai =ABSC Thet ai ) 

Sip=Nl/N2*SinCThetai ) 

IF ABS C S i p ) > 1 THEN Wrong 
Thet ar = ASNC S i p) 

Rho= Norm- Thet ar 

IF CABSCRho)<39. 99999) OR < ABS < Rho ) >90 . 0000 1 ) THEN Trho=TANCR 

IF CABSCRho) >89. 99999) AND < ABS < Rho > < *90 > THEN Trho=-9999999 
IF CABSCRho) >90) AND C ABS C Rho >< 90 . 0000 1 ) THEN Trho=9999999 
SUBEXIT 
Two: Nn 1 =N2 
Nn2=N3 

IF Y< 0 THEN Negative 
CALL SlopeCY) 

Thetai=90-ABSCRho)-Alpha2 

IF Thetai<0 THEN Neg_thetai2 
Same: IF CG*= M Y H ) OR CGJs'V*) THEN GOSUB Gr i n 

S i n_i pr i me = Nn 1 /Nn2*S INC The t ai ) 

IF ABS C S i n_i pr i me ) > 1 THEN Wrong 
Thet ar=ASNC S i n iprime) 

Rho*A1pha2+Thetar-90 ! USE ALPHA2 INSTEAD OF NORM BECAUSE THE 

! SIGN OF THE ANGLE IS DESIRED 

Trho=TANCRho) 

Ph i =A 1 pha-Rho ! USED FOR. GRIN 

SUBEXIT 

Neg_ thetai2: Thet ai =ABS C The t ai ) 

Si p=Nnl/Nn2*SINCThet ai ) 

IF AbsC S i p ) > 1 THEN Wrong 
Thetar=ASNCSip) 

Rho=Norm-Thet ar 

IF ABS C Rho ) > = 90 THEN Skip ! THE RAY WILL NOT INTERCEPT 

! THE IMAGE PLANE 

IF ABSCRho)<39. 99999 THEN Trho = TAN < Rho ) 

IF CABSCRho) >89. 99999) AND < ABS < Rho ) < 90 ) THEN Tr ho = -9999999 
SUBEXIT 
Skip: F1ag=15 

IF ABSCRho) >=90. 000001 THEN Tr ho*TAN C Rho ) 

IF ABSCRho)<90. O00001 THEN Trho*9999999 
Rhop»180-ABSCRho) 

Trhop»TANCRhop) 

Xc<Y0 1 oop ) =X-Y/Trhop 
SUBEXIT 

Wrong: F1ag=10 ! TOTAL INTERNAL REFLECTION AT THE SECOND SURFACE 

SUBEXIT 

Negative: CALL SlopeCY) 

Thetai =90+ABSCRho)-A1 pha2 
S ip = Nnl/'Nn2*S INC Thet ai ) 

IF ABS C S i p ) > 1 THEN Wrong 
Thetar*ASNCSip) 

Rho=Norm-The t ar 
Trho»TANCRho) 

SUBEXIT 
Grin: N2=0 

IF CGr i n$="P" ) OR CGrin*="p"> THEN P 
C: CALL Index_c C X, Y ) 

NCY0 1 oop ) *N2 
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6330 IF Surf_no= 1 THEN Nn2*N2 

6360 IF Surf no = 2 THEN Nnl=N2 

6370 RETURN 

6380 P: CRLL Index p<X,Y> 

6390 N < Y0 1 oop ) =N2 

6400 I F~"Sur f__no = 1 THEN Nn2 = N2 

6410 IF Surf_no=2 THEN Nnl=N2 

6420 RETURN 

6430 SUBEND 

6440 SUB Bi nary_search(X, Y) 

6430 OPTION BASE 0 
6460 ! 

6470 COM INTEGER I , J , Curve , Np , Nn , N , Ns , Nr , REAL Aneg < * > , Apoa < * > , A < * ) , 2 1 , 13, Z4 
6480 COM Alpha, Tal pha, Rho , Tr ho, Rho_ initial, Trho i , Ph i , To 1 , Norm , A 1 pha2 
6490 COM N1 , N2, N3, Percental mage, Ya, Yb, Aperture, Y_bul 1 et 
6500 ! 

6510 COM INTEGER Y0_1 oop, Mray, Add_ray, Surf_no, FI ag, FI ag2, N_ i ncrement , Hi t_tot al 
6520 COM INTEGER Lmec ount , L i nemax 
6530 COM INTEGER Pselect,Hpib 
6540 ! 

6550 COM REAL Nm i n , Nmax , R0_max 

6360 COM Ray_trace$, Di gi 1 1 zeS, Gri nS, G$,Gri nc$, PI ot$, Dates 
6570 COM X(*>,Y<*>,Xc<*>,N<*>,R<*> 

6580 ! 

6390 COM Rho<*),Phi <*),C<*>, Y3(*),Hit <*> 

6600 ! 

6610 DEG 

6620 DEF FNACX, Y)=X-Y/Trho 
6630 DEF FNAi <X, Y)*X-Y/Tal pha 

6640 DEF FNXn(A)=A-Y_bul 1 et/Trho ! FINDS THE INTERCEPT OF THE RAY AND Y*-Y_b 
ul let 



6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6730 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6830 

6860 

6870 

6880 

6890 

6900 

6910 

6928 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 



R*1 

IF Surf no a l THEN One 
IF Surf~no»2 THEN Two 
IF Surf no*3 THEN Three 
Four: Dy*(Z4-X)*Trho 
Y»Y+Dy 
X=Z4 
SUBEXIT 

Three: IF <Y>0> AND <Trho>0> THEN Skip ! THE RAY WILL NOT CROSS THE X-AXIS 

Xc < Y0_1 oop)=FNA<X, Y) 

Back: Dy*<Z3-X)*Trho 
Y*Y+Dy 
X»Z3 
SUBEXIT 

One: CALL Xlpos(X,Y> 

SUBEXIT 

Two: A*FNA< X , Y) 

IF F 1 ag=»5 THEN Search2 ! Theta I < 0 FROM SNELL 
F 1 ag=»0 
FI ag2 a 0 

IF < G $ * “ Y " ) OR <G#*“y ,, > THEN Grin 

IF A<Z1 THEN Negative ! THIS IS A SEPARATE AND UNRELATED TEST 

GOTO Positive ! FROM THAT PERFORMED IN SEARCH 2 

Search2: ! THIS ROUTINE IS ENTERED WHEN THE ANGLE OF INCIDENCE ON THE 

! FIRST SURFACE IS < 0 DEGREES. 

! THIS MEANS Thetal HAS DECREASED FROM ITS AXIAL VALUE TO 0 
! <ie. NORMAL TO THE FIRST SURFACE) THEN CONTINUED TO ROTATE PAST 
! THE NORMAL. THIS CORRESPONDS TO A TARGET AT OR NEAR CLOSEST 
! POINT OF APPROACH CCPA). 

! WHEN THIS HAPPENS RHO(l) CAN BE LARGE ENOUGH TO CAUSE THE RAY 
! TO MISS THE FIRST AND SECOND SURFACE. 

! THE ROUTINE FIRST CHECKS TO SEE IF THE RAY CROSSES THE SECOND 
! SURFACE. IF SO, CONTROL SWITCHES TO FASTER BISECTION ROUTINE. 

! IF NOT THEN THE ROUTINE MARCHES SLOWLY DOWN THE RAY TO FIND THE 
! INTERCEPT (IF ANY). 

i 
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7010 

7020 

7030 

7040 

7050 

7060 

7070 

7030 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7230 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7330 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7430 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7530 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 



IF 8 >21 THEN Positive 

i 

De 1 1 a 3 . 01 

X 1 2*X 
Y12 3 Y 

I EVEN THOUGH THE X-INTERCEPT APPEARS TO BE < 21, THE SECOND SURFACE 
! COULD BE IRREGULAR ENOUGH TO CAUSE THIS SIMPLE CHECK TO BE DECEIVING. 

! THE RAY IS ASSUMED TO HAVE INTERCEPTED THE SECOND SURFACE IF THE 
! DIFFERENCE BETWEEN THE RAY POSITION AND THE SECOND SURFACE < TOLERANCE 
March: De 1 t ax*De 1 t a*COS< Rho ) 

De 1 tay=De lta*$IN<Rho) 

X12 3 X12+De 1 tax 
Y12-Y12+D* 1 t ay 

IF Y1 2< 0 THEN Missed ! YOU HAVE REACHED THE X-AXIS 
X2*0 

CALL X2pos <X2, Y12) 

Xsave«X12-X2 

IF ABS<XaveK = To1 THEN Donel ! FOUND THE SURFACE WITHIN TOL 
IF Xsave<0 THEN March I KEEP LOOKING 

IF Xsave >0 THEN Found_i t ! THE RAY CROSSED X2P0S 

Done 1 : X=<X2+X12>/2 
Y = Y 1 2 
SUBEXIT 

Missed: X=A ! THE RAY HAS MISSED THE POS AND NEG SURFACES 

Y*0 ! DRAW THE RAY TO THE X-AXIS 

GOTO B 1 ind 

Found it: Xmid=X12 ! THE RAY HAS CROSSED THE SECOND SURFACE. GO TO THE 

X 1 ast =Xm i d ! BISECTION ROUTINE FOR SPEED 
Ymi d 3 Yl 2 
Y 1 ast=Ymi d 
Xsave 3 0 

GOTO Recurse_p 
Positive: X 1 =0 



X2 3 0 

CALL Xlpos<X 1 , Y) 

CALL X2pos<X2,Y> 

IF X2< 3 X 1 THEN Woops 

Xmid*A i THE RAY HAS CROSSED THE X-AXIS BEHIND THE SECOND 

Xmi d*A ! THE RAY HAS CROSSED THE X-AXIS BEHIND THE SECOND 

X 1 ast 3 Xm i d ! SURFACE. THEREFORE Y>0 AT THE INTERCEPT 

Ym i d=0 
Y 1 ast =Ym i d 



Xsave=0 

Recurse p: Xrni d*<X+R*Xmi d>/< 1 +R> 

" Ymid*<Y+R*Ymi d>/<l+R> 

X2 3 0 

CALL X2pos <X2 , Ymid) 

Xsaue = X2-Xmi d 

IF Xsave< 0 THEN First 
IF Xsaue>0 THEN Second 
IF Xsave*0 THEN Done 
Recurse_n: Xmi d»<X+R*Xmi d>/*< 1 + R) 

~ Ymid 3 <Y+R*Yrai d>/< 1+R> 

X2 3 0 

CALL X2neg<X2,Ymid> 
Xsave*X2-Xm i d 

IF Xsave< 0 THEN First 
IF Xsave>0 THEN Second 
IF Xsave®0 THEN Done 
First: IF ABS < Xsave > < To 1 THEN Done 

X 1 ast =Xm i d 
Y 1 ast ®Ymi d 

IF F1ag*l THEN Recurse^n 
GOTO Recurse_p 

Second: IF ABSCXsave X To 1 THEN Done 

X*Xnnd 
Y*Ym l d 



INTERCEPT IS BEHIND THE MIDPOINT 
INTERCEPT IS AHEAD OF THE MIDPOINT 
INTERCEPT IS THE MIDPOINT 



INTERCEPT IS BEHIND THE MIDPOINT 
INTERCEPT IS AHEAD OF THE MIDPOINT 
INTERCEPT IS THE MIDPOINT 
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7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

SSED 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

3180 

8190 

3200 

8210 

8220 

8230 

3240 

8250 

8260 

8270 

3280 

8290 

8300 

8310 

8320 

8330 



Xm i d 3 X 1 ast 
Ym i d 3 Y 1 ast 

IF FlagM THEN Recu rse_n 
GOTO Recurse^p 
Negative: X1=0 
X2*0 

Xc < Y0_1 oop)*fl 

CALL Xineg<Xl , Y> 

CALL X2neg < X2 , Y ) 

IF X2< 3 X 1 THEN Woops 

F 1 ag 3 1 ! THE RAY CROSSES THE X-AXIS AHEAD OF THE SECOND 

YU»-Y bullet ! SURFACE AND COULD POSSIBLY INTERCEPT X2HEG. 

X*A ” ! THE SAME TYPE OF TESTS DESCRIBED ABOVE 

! IN SEARCH 2 ARE PERFORMED HERE. 

Y=0 

Del ta*. 01 
Search: X 1 1 =FNXn< A) 

X2 = 0 

CALL X2neg<X2, Y1 1 > 

IF X 1 1 >X2 THEN Ok ! Xll > X2max 
XI i*A 
Y 1 1 3 0 

Del t ay 3 Del ta*SIN<Rho> 

Del t ax*Del ta*COS<Rho> 

Search^: IF ABS < Y l 1 ) >»YJu 1 1 et THEN Missed2 ! THE SECOND SURFACE WAS MI 

XI 1 3 X 1 1+De 1 tax 
Y 1 1*Y 1 1 +De 1 1 ay 
X2 3 0 

CALL X2neg<X2, Y 1 1 > 

Xsavt 3 Xi 1-X2 

IF AB$<Xsave)<=Tol THEN Victory ! FOUND THE SURFACE 
IF Xsave > = 0 THEN Ok ! 

IF Xsave< 0 THEN Search_n ! KEEP LOOKING 
M i ssed2 : X=FNXn<A> ! DRAW THE RAY UNTIL Y» -Y bullet 
Y 3 -Y_bu 1 1 et 
GOTO B 1 ind 
Victory: Flag2 3 l 

X 3 <XU+X2>/2 
Y*Yl l 
SUBEXIT 

Ok: FI ag2 3 l ! THE INTERCEPT OF THE RAY AND X2NEG HAS 3EEN FOUND. 

Xm i a 3 Xl 1 ! GO TO THE BISECTION ROUTINE FOR SPEED. 

XI ast *Xmi d 
Ymi d=*Yl 1 
Y1 ast*Yn»i d 
GOTO Recurse n 
Done: X»<X2+Xmid”/2 
Y*Ymi d 
SUBEXIT 

Skip: Xc<Y0_loop>=*0 
GOTO Back 

Blind: IF Flag 3 l THEN Blind n 

Flag«20 
X 3 A 
Y=0 

Xc < Y0 1 oop) 3 A 
SUBEXIT” 

Blind_n: Flag *20 

Xc<Y0 loop)=A 
SUBEXIT” 

Woops: F 1 ag 3 30 ! THE SECOND SURFACE HAS BENT AND CROSSED THE FIRST 

X 3 X2 ■ STOP THE RAY TRACE 

Y*Y 

SUBEXIT 
Grin: Ai=Z3 

Y*<A-Ai )*<Tal pha*Trho)/< Trho-Tal pha) \ INTERCEPT OF TWO LINES 
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8340 

8330 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 

8510 

8520 

8330 

8540 

8350 

8560 

8570 

8380 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

8720 

8730 

8740 

8730 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8830 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 



X*A+Y/Trho 

Xc < Y0 1 oop > *A ! REQUIRED FOR DRAWING PURPOSES 
SUBEND 
SUB Graph 

OPTION BASE O 

i 

COM INTEGER I , J , Curue , Np , Nn , N , Ns , Nr , REAL Aneg C * > , Apos C * ) , A < * ) , 2 1 , 23 , 24 
COM Alpha,Talpha, Rho, Trho, Rho_i ni t i al , Trhoi ,Phi ,Tol , Norm, Al pha2 
COM Nl , N2, N3, Percent_i mage, Ya, Yb, Apert ure, Y_bul 1 et 

i 

COM INTEGER Y0_1 oop , Nr ay , Add_r ay , Sur f _no , F 1 ag , F 1 ag2 , N_i ncrement ,Hi t_ total 
COM INTEGER L i nec oun t , L i nemax 
COM INTEGER Pselect,Hpib 

i 

COM REAL Nm i n , Nmax , R0_max 

COM Ray_t r ac e£ , Digitizes, Grin$, G$,GrincS,Plot*,Date* 

COM X<*),Y<*),Xc<*),N<*),R<*) 

! 

COM Rho < *> , Ph i <*>,C<*>,Y3<*),Hit<*) 

i 

DEG 

PRINTER IS 16 

IF <Gr i nc$*'* Y" ) OR <Grinc**"y M > THEN Grinc 
IF <Digitize$* M Y") OR <Di gi t i 2«$*"y " ) THEN Digit 
Draw_axes: CALL Plot 

First surf: FIXED 2 

LINE TYPE 8 
Y*Y_bu 1 let 
MOVE 0,0 
X*Y/Talpha 
DRAW X , Y 
DRAW 100, Y 
MOVE 0,0 
DRAW X , - Y 
DRAW 100, -Y 

IF <G#-"Y M > OR <G* = 'V> THEN Grin_image 
X2pos: MOVE Apos < 0) , 0 

FOR Y*0 TO Y_bullet STEP .01*Y_bullet 
X2pos=0 

FOR 1*0 TO Np 

X2pos*X2pos+Apos< I >*YM 
NEXT I 

DRAW X2pos , Y 
NEXT Y 

X2neg: MOVE Apos<0>,0 

FOR Y*0 TO -YJulUt STEP - . 0 1 *Y_bu 1 1 et 
X2neg*0 

FOR 1*0 TO Nn 

X2neg*X2neg+Aneg< I >*YM 
NEXT I 

DRAW X2neg,Y 
NEXT Y 

EXIT GRAPHICS 
Y$*"N M 

INPUT " DO YOU WANT A HARD COPY OF THE PLOT WITHOUT RAYS ? Y/N*,Y$ 

IF <Y$*”Y") OR <YS*"y M ) THEN GOSUB Dump_i t 
GRAPHICS 

First_image: LINE TYPE 5 

MOVE 23, Y bul let 
DRAW 23, -Y_bul 1 et 
Sec ond_i mage: LINE TYPE 6 

MOVE 24 , Y_bu 1 1 et 
DRAW 24, -Y bul let 

IF <G$*"N M > OR <GS*"n“) THEN First 
Grin_image: LINE TYPE 7 

Ym*-Y bul let*. 5*Y bullet 
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9010 

9020 

9030 

9040 

9030 

9060 

9070 

9080 

9090 

9100 

91 10 

9120 

9130 

9140 

9130 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9330 

9360 

9370 

9380 

9390 

GREES 

9400 

9410 

9420 

9430 

9440 

9430 

9460 

9470 

9480 

9490 

9300 

9510 

9520 

9330 

9340 

9530 

9360 

9370 

9380 

9390 

9600 

9610 

9620 

9630 

GREES 

9640 

9630 



Xm«23 + Ym/'Talpha 
MOVE Xm, Ym 
Yids-Yid 

Xm=23+Ym/Talpha 
DRAW Xm, Ym 
REM DRAW THE RAYS 
First_: LINE TYPE t 

CLIP 0,100, -Y bullet, Y bullet 
1 = 0 

FOR Ray first=l TO Nray 
MOVE X<I),Y<I) 

DRAW X<I+t>,Y<I+l> 

I 3 1 + 5 

NEXT Ray_first 
$econd_: 1*1 

FOR Ray second=l TO Nray 
MOVE X< I ) , Y < I > 

DRAW X<I+1>,Y<I+1> 

I* I >5 

NEXT Ray second 

IF <G*="Y ,, > OR 7g l = >") THEN Wai t_ 

Fi rst_i mage_p: 1=2 

Nr = - 1 

FOR Ray image=l TO Nray 
Nr=Nr+3 

MOVE X<I),Y(I) 

IF X<I)<>0 THEN Ok 
1*1+3 

GOTO Next_ray_i mage 

Ok: IF X<I+T>*0 THEN Reflect 

DRAW X<I+1>,Y<I+1) 

1 = 1+3 

GOTO Next_ray image 

Reflect: ! IF THE ANSWERS TO THE QUESTION IS NO, THE RAY WAS TOTALLY 

» REFLECTED AND DO NOT DRAW A LINE 
! IF A LINE IS DRAWN, THEN ABS< RHO > > 90 DEGREES 

IF CXc <Ray_i mage)=0) OR <Rho<Nr>=0> THEN 9400 
Trho=-l*Y< I)“<Xc<Ray image>-X< I) > 

DRAW X<I>-<Y<I)+YjDu7let>/Trho,-Y_bul let ! RHO > 90 DE 

1 = 1+3 

Next_ray_i mage: NEXT Ray_image 
Decision: WAIT 2000 

EXIT GRAPHICS 

BEEP 

YS* M N" 

INPUT "DO YOU WANT TO PLOT TO THE SECOND IMAGE PLANE ? Y/N" , Y* 
GRAPHICS 

IF <YS*"N"> OR <Y$="n"> THEN Wai 
Second_i mage_p: 1=3 

Nr*- 1 

FOR Ray_image2*l TO Nray 
Nr*Nr+3 

MOVE X<I),Y<I) 

IF X<I><>0 THEN Ok 2 
1*1+3 

GOTO Next_ray_i mage2 

0k2: IF X<I+1)=0 THEN Reflect2 

DRAW X<I+1),Y<I+1> 

1 = 1+5 

GOTO Next_ray image2 

Ref l ec 1 22 IF <Xc<Ray 7mage2>=0> OR <Rho<Nr>*0> THEN 9640 

Trho=-l*Y< I>/7xc <Ray i mage2)-X C I ) > 

DRAW X<I)-<Y<I>+Y_bul let)/Trho,-Y_bul let ! RHO > 90 DE 

1 = 1+5 

Next_ray_ i mage2 : NEXT Ray_image2 
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9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

9980 

9990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 



! THIS ROUTINE PRESENTS THE PLOT TO THE 
! OPERATOR TO STUDY UNTIL READY TO CONTINUE 



GOTO Wai t __ 

Grinc: CALL Plot 

! R 1 *C< 1 ) / <N< 1 )*SIN<Phi <1 ))) 

! MOVE R 1 , C < l ) 

MOVE R<1),C<1> 

FOR 1-2 TO N ray 

! R*C<I)/<N< I >*SIN(Phi <I)>> 

I DRAW R , C< I > 

DRAW R<I>,C<I> 

NEXT I 

Wait_: ! SETGU 

LINE TYPE 1 
LDIR 0 
MOVE 2,2 
CSIZE 2 

LABEL "PRESS CONT" 

CSIZE 15/4.54 
SETUU 
BEEP 

WAIT 250 

BEEP 

PAUSE 

EXIT GRAPHICS 
SUBEXIT 

Digit: GRAPHICS 

POINTER Z3,0 
DIGITIZE Z3,Y 
LINE TYPE 5 

MOVE 23, Y bul 1 et 

DRAW 23,-Y_bu1 let . .*< 

SETGU ’ 

LDIR O 

LINE TYPE 1 

LORG 5 

CSI2E 2.5 

Centerx=72.5 ! CHANGE IN Laxes also 
MOVE 1 . 5*Cent erx , 5 
LABEL USING 10040; 23 

IMAGE “Image Plane : “ , DD. DD, " inches" 

SETUU 

CSIZE 15/4.54 
WAIT 2500 
EXIT GRAPHICS 
SUBEXIT 

Dump_i t : PRINTER IS 0 

PRINT CHR$<27)&"&100T" 

DUMP GRAPHICS 

PRINT CHR$<27)&" &136T" 

PRINTER IS 16 
RETURN- 

SUBEND 
SUB Plot 
OPTION BASE 0 
; 

COM INTEGER I , J , Curve , Np , Nn , N, Ns , Nr , REAL Aneg < * ) , Apos < * ) , A< * ) , Z 1 , Z3 , Z4 
COM A 1 pha, Tal pha, Rho , Trho , Rho_i ni t i a 1 , Trho i , Ph i , To 1 , Norm, A l pha2 
COM Nl , N2, N3, Percent i mage , Ya, Yb , Apert ure , Y bullet 

i 

COM INTEGER Y0_ 1 oop, Hr ay , Add_ ray , Surf_no, FI ag , FI ag2, N_ i ncrement , Hi t _t ot a 1 

COM INTEGER L i nec ount , L i nemax 

COM INTEGER Pse1ect,H pvb * ' 

! ’ 

COM REAL Nm i n, Nmax, R0_max 

COM Ray t race! , Di gi t i z*S , Gr i n$ , G$, Gr i nc f , P 1 ot $ , D at eS 
COM X<*7, Y<*),Xc<*),N<*>,R<*> 

- i 

COM Rho< *) , Ph i <*>,C<*),Y3<*),Hit<*) 
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10330 I 

10340 ! THE ORIGINAL VERSION OF THIS ROUTINE IS LOCATED IN THE HP-9345 

10350 \ LIBRARY TAPE No. TWO SER: 09845-10205 PROGRAM " R E G P L T " 

10360 ! 

10370 ! 

10380 ! FNMAX AND FNMIN HAVE BEEN MADE INTO SUBROUTINES 

10390 » 

10400 Set up: IF (P lot**"?") OR < P 1 ot *=" p " ) THEN P9372a 

10410 Crt: PLOTTER IS 1 3 , " GRAPH I CS " 

10420 GOTO 10440 



10430 


P9872a: PLOTTER IS Pse 1 ec t , Hp i b , " 9872A " 


10440 


GCLEAR 


10450 


LIMIT 


0,134,0,140 ! ALL UNITS IN MILLIMETERS 


10460 


LINE 


TYPE 1 


10470 


LDIR 


0 


10480 


LORG 


5 


10490 


i 




10500 


DATA 


-2,-1, 1,2 


10510 


READ 


Urn, Dm, Md, Mu 


10520 


DATA 


.39794, .69897, .87506 


10530 


READ 


Log2, Log5, Log7 


10540 


! 




10550 


IF 


(Grinc*="Y") OR (Crinc*="y") THEN Grinc 


10560 


IF 


(G** M Y" ) OR <C*="y") THEN Grin 


10570 


IF 


(Digitize*»"Y") OR (Digitize* =" y" ) THEN Digit 


10580 


IF 


(Ray_trace**"Y"> OR (Ray_trace*» "y " ) THEN Ray 


10590 


! 




10600 


Ray: Xmi n=Xorg 


»Yorg»0 


10610 


Xmax=10 





10620 Ymax*Y bul let 

10630 Ymi n*-Ymax 

10640 PRINT PAGE," Xmax is the maximum length along the GLM axis which you" 

10650 PRINT "want to be displayed." 

10660 PRINT LIN(l)," A rule of theumb is to pi.Ck ‘a* typi cal value of Xc <the 

X-intercept“ 

10670 PRINT "from the printed output for the ray trace and add one inch to" 

10680 PRINT "that value. For example: if the majority of the Xc values liste 

d" 

10690 PRINT "have values around 5.6, then key in 6.6 and PRESS CONT. " 

10700 Rayl: INPUT "WHAT IS THE VALUE OF Xmax (DEFAULT VALUE IS 10.0 INCHES > ?",X 



IF Xmax<*Xmin THEN BEEP 

IF Xmax< *Xmi n THEN DISP "Xmax MUST BE > Xmin = 0. PLEASE RE-ENTER 



! ALL UNITS IN GDU'S 



10710 
10720 
Xmax. " 

10730 IF Xmax< =*Xmi n THEN WAIT 2500 

10740 IF Xmax<*Xmin THEN Rayl 

10750 Ray_scale: LOCATE 15,130,25,100 
10760 GOSUB Same 

10770 ! SCALE Xm i n- . 5 *X fudge , Xmax* . 5*ABS(Yt i c ) , -Y_bul 1 et - . 25*ABS < Yt i c ) , 

Y bul Wt+.25*ABS(Ytic) 

10780 SCALE Xmin-.5*ABS(Ytic), Xmax+. 5*ABS(Ytic), -Y_bu1 1 et - . 25*ABS ( Yt i 

c), Y_bul let+.25*ABS(Yt ic) 

10790 ! CLIP Xmin-.5*Xfudge, Xmax*. 5*ABS<Ytic),-Y bu 1 1 et 25*ABS < Yt i c ) , 

Y_bul let*.25*ABS(Yt ic) 

10800 CLIP Xmin-.8*ABS<Yt ic) , Xmax+ . 5*ABS ( Yt ic), -Y_bu1 1 et -. 25*ABS < Yt i 

c), Y_bul 1et+.25*ABS(Yt ic ) 

10810 GOSUB Same axes 

10820 CLIP Xmin, 100, -Y bullet, Y bullet 

10830 SUBEXIT 

10840 Digit: LOCATE 0,130,30,100 ! ALL UNITS IN CDU'S 

10850 Xmax=Y_bul 1 et 

10860 Xmin»-Xmax 

10870 Xorg*Yorg30 

10880 Ymax-1 

10890 Ymin*0 

10900 ' GOSUB Same 

10910 Di gi t i_scale: SCALE -Y_bul let-. 15*ABS(Yt i c ), Y_bu1 let*. 15*ABS(Yt ic),-. 15*AB 



195 



S(Ytic), 1 + . 15*ABS(Ytic ) 



10920 CLIP -Y_bu1 let-. l3*ABS(Ytic), Y_bu 1 1 ett. 15*ABS(Yt ic),-. 15*AB 

S(Yt ic>, 1+. 15*ABS(Ytic> 



! ALL UNITS IN GDU'S 



10930 9 GOSUB Same_4xes 

10940 SUBEXI T 

10950 Grin: GOTO Ray 

10960 Grinc: LOCATE 13,133,20,101 
10970 Xorg*Yorg=0 

10980 GOSUB Min_c 

10990 GOSUB Max_c 

11000 Ymi n=Cmi n*(1 i nc 

11010 Ymax=Cmax=Maxc 

11020 GOSUB Min r 

11030 GOSUB Max_r 

11040 Xmax*Maxr 

11050 Xmin=Minr 

11060 Grinc_ scale: GOSUB Same 

11070 SCALE Xm i n , Xmax+ABS <Xt i c ) , Ym i n , Ymax + ABS < Yt i c ) 

11080 CLIP Xmi n , Xmax+ABS < Xt i c ) , Ym i n, Ymax+ABS ( Yt i c ) 

11090 GOSUB Same axes 

11100 SUBEXIT 

11110 Same: Lx*LGT < Xmax-Xm i n ) 

11120 Ly*LGT( Ymax-Ym i n) 

11130 Xfudge*. 20*(Xmax-Xmi n> 

11140 Yfudge=. 20*(Ymax-Ymi n) 

11150 Ticmarks: Test xt i c=FRACT(Lx)+(Lx<0) 

11160 Testyt i c =FRACT ( Ly ) ♦ ( Ly< 0 ) 

11170 Xt i c*10^< INT(Lx)-l > *(1+1. 5*< (Test xtic>Log2) AND 

♦4*((Testxtic>=Log5) AND (Testxtic<=Log7))+6.5*(Testxtic >Log7> ) 
11180 Yt ic=10~( I NT < Ly >-!>*< 1+1. 5*< (Test yt ic>Log2> AND 

♦4*((Testytic >=Log5) AND (Testyt i c<=Log7> )+6.5*<Testytic >Log7> ) 



(Testxt i c <Log5) ) 
(Testyt i c < Log5 ) ) 



11190 RETURN 

11200 Same_axes: CALL Laxes( Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , M i nt i cs i ze , Xm i n , Xmax , 

Ymi n, Ymax , Mi nn, Maxx ) 

11210 RETURN 

11220 Min r: Minr»R(0) 

11230 ~ FOR 1=1 TO Nr ay 

11240 Minr=MIN(Minr, R( I ) > 

11250 NEXT I 

11260 RETURN 

11270 Max r: Maxr=R(0) 

11280 * FOR 1 = 1 TO Nr ay 

11290 Maxr»MAX(Maxr , R( I > > 

11300 NEXT I 

11310 RETURN 

11320 Min c: Minc=C(0> 

11330 “ FOR 1=1 TO Nr ay 

11340 Minc»MIN(Minc, C( I) > 

11350 NEXT I 

11360 RETURN 

11370 Max c: Maxc*C(0> 

11380 ” FOR 1=1 TO Nr ay 

11390 Maxc=MAX (Maxc , C ( I > > 

11400 NEXT I 

11410 RETURN 

11420 SUBEND 

11430 SUB Laxes(Xtic,Ytic, Xorg, Yorg, Xmaj , Ymaj , Mi nt i'cs i ze, Xmi n , Xmax, Ymi n , Ymax , Mi n 
n, Maxx) 



11440 
11450 
11460 
11470 
11480 
11490 
1 1500 
I 

11510 



OPTION BASE 0 

i 

COM INTEGER I, J , Curve, Np,Nn,N, Ns, Nr, REAL Aneg < * ) , Apos ( * ) , A( * ) , 2 1 , 23 , 24 
COM A 1 pha, Tal pha, Rho , Trho , Rho_ i rntial , Trho i ,P hi , To 1 ,Norm,Alpha2 
COM N1,N2,N3, Percental mage,Ya,Yb, Aperture, Y_ bul 1 et 

j 

COM INTEGER Y0_1 oop , Nr ay , Add_ ray , Sur f_no , F 1 ag , F 1 ag2 , N_i ncrement,Hit_tota 
COM INTEGER Li necount , L i nemax 
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11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 

11810 

11820 

11830 

11840 

11850 

11860 

11870 

11880 

11890 

11900 

11910 

11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 



COM INTEGER Pse1ect,Hpib 

j 

COM REAL Nm i n, Umax, R0_max 

COM Ray_t races, Di gi tize$,Grin$,G$,Grinc$,P1ot$,Date* 
COM X<*),Y<*),Xc<*),N<*),R<*) 

i 

COM Rho<*> , Phi <*),C<*),Y3<*),Hit<») 

I 

DEG 

LINE TYPE l 
LDIR 0 
LORG 5 

IF < Xm i n >-Xmax ) OR < Ym i n>=Ymax ) THEN SUBEXIT 
GRAPHICS 

Xf udge 3 . 02*<Xmax-Xrnin) 

Yfudge=. 02*< Ymax-Ymi n) 

Xmaj = 1 
Ymaj-1 

Mi nt i csi ze*2 
} 

IF <Gr i nc$="Y M ) OR < Or i nc $= " y “ ) THEN Grinc 
IF < G $ * " Y " ) OR <«»>”) THEN Grin 
IF < D i gi t i ze$«" Y" ) OR < D i gi t i ze*="y ** ) THEN Digit 
IF <Ray_trace$ s " Y" ) OR <Ray_ traceS s "y " > THEN Ray 

i 

Grinc: LINE TYPE 3 

GRID Xtic,Ytic,Xorg,Yorg,Xmaj,Ymaj,2*Minticsize 

LINE TYPE 1 

FRAME 

GOTO Labe1x_grinc 
Grin: GOTO Ray 

! Digit: AXES . I , . 1 , 0, 0, 1 , l , 2 
Digit: AXES Xt i c , . 1 , 0, 0, 1 , 1 , 2 
GOTO Labelx_d 

Ray: AXES Xt i c , Yt i c , Xorg, Yorg, Xmaj , Yrnaj , Mi nt i csi ze 
Label x: LDIR 90 
LORG 8 

FOR A-Xorg TO Xmax STEP ABS(Xtic) 

MOVE A, Yorg-Yfudge 

IF A=0 THEN LABEL USING 11920;A 
IMAGE »,K 

IF A*0 THEN GOTO 11960 
LABEL USING 11950JA 
IMAGE DDD.D.K 
NEXT A 
Labely: LDIR 0 
LORG 8 

FOR A— Y bullet TO Y bullet STEP ABS(Ytic) 

MOVE Xorg-Xfudge, A* 

IF A-0 THEN LABEL USING 11920, *A 
IF A-0 THEN GOTO 12040 
LABEL USING 11950JA 
NEXT A 
GOTO Label 



Labe 1 x d: LDIR 90 
LORG 8 

! FOR A — Y bullet TO Y bullet STEP .1 

FOR A*-Y~bullet TO Y~bullet STEP ABS<Xtic) 
MOVE A, Yorg-Yfudge 

IF A = 0 THEN LABEL USING 1 1920; A 
IF A»0 THEN GOTO 12150 
LABEL USING 11950JA 
NEXT A 
Labely d: LDIR 0 
LORG 8 

FOR A*0 TO Ymax STEP . 1 



12190 
12200 
1 22,1 0 
12220 
12230 
12240 
12250 
12260 
12270 
12230 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12730 
12790 
12800 
12810 
12820 
12830 
12840 



MOVE Xorg-Xf udge , A 

IF A = 0 THEN LRBEL USING 11920; A 
IF A=0 THEN GOTO 12230 
LABEL USING 11950JA 
NEXT A 
GOTO Label_ 

i 

Labe 1 x_gr l nc : LDIR 90 
LORG 8 

FOR A=Xorg TO Xmax+ABS < Xt i c ) STEP ABS(Xtic) 

MOVE A, Yorg-Yfudge 
LABEL USING 12310JA 
IMAGE # , K 
NEXT A 

Labe 1 y_gr i nc : LDIR 0 
LORG 8 

FOR A=*Yorg TO Ymax+AB3( Yt l c ) STEP ABS(Ytic) 

MOVE Xorg-Xf udge , A 
LABEL USING 12310JA 
NEXT A 

j 

Label : LDIR 0 
LORG 5 

MOVE - 1 0*Xmax , 0 
LABEL "RESET CR/LF" 

SETGU 
CSI2E 2.5 

IF (Gr i nc$*"Y" > OR ( Gr i nc $="y " ) THEN Grinc_ label 
IF ( G $ * " Y " ) OR <G **"y"> THEN Grinjabel 

IF <Di gi t i ze$= "Y" ) OR <Di gi t i ze$ 3 "y " > THEN Digit label 

IF <Ray^tracel3"Y") OR (Ray_t race* = "y " ) THEN Ray_label 

i 

Ray_labei: Centerx*72.5 ! CHANGE IN Graph ALSO 

Centery*62. 5 

MOVE 1 . 5*Cent erx , 13 
LABEL USING 12550;Nray 
IMAGE "Number of Rays : " , K 

MOVE .5*Centerx,9 
LABEL USING 1 2580 ; Rho_i n i. t i al 
IMAGE "Incident Ray Angle : ",3D.DD," deg" 

MOVE .5*Centerx,5 
LABEL USING 12610JN2 
IMAGE " n2 : " , D. DDDDD 
MOVE 1 . 5*Centerx , 9 
LABEL USING 1 2640 ; Apert ure 
IMAGE "Aperture : ",D.DDD,“ inch" 

MOVE Cent erx , 20 

LABEL "Distance Along the GLM Axis (inches)" 

i 

CSI2E 3 

MOVE . 5*Cent erx , 13 
LABEL USING 127l0;Curve 
IMAGE "Curve Number : ",K 
LDIR 90 

MOVE 1.5, Cent ery 

LABEL "Radial Distance From the Axis (inches)" 

LDIR 0 

CSI2E 15/4.54 
GOTO Label _end 

' j 

Digit_1abe1: Centerx*65 
Cent ery*65 

MOVE l • 5*Cent erx, 13 
LABEL USING 12550; Nray 
MOVE .5*Centerx,9 
LABEL USING 1 2350 ; H i t t ot al 
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12356 

12860 

12370 

12380 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 

13230 

13240 

13250 

13260 

13270 

13280 

13290 

13300 

13310 

13320 

13330 

13340 

13350 

13360 

13370 

13380 

13390 

13400 

13410 

13420 

13430 

13440 

13450 

13460 

13470 

13480 

13490 

13500 

1 



IMAGE "Humber of Hits on the Image Plane : ",K 

MOVE l . 5*Cent erx , 9 
LABEL USING 1 2880 ; Perc ent image 
IMAGE of Rays to Image Plane : " ,3D.DD 
MOVE 1 . 5*Cen t erx, 5 
LABEL USING 12910;Z3 

IMAGE "Image Plane : M ,DDD.DD," inches" 

MOVE .5*Centerx,5 
LABEL USING 12940;N increment 
IMAGE "Number of Increments C0,l.U : ",K 
} 

CSIZE 3 

MOVE Cent erx , 20 

LABEL "Normalized Number of Hits us Distance from the Axis 
MOVE . 5*Cent erx , 13 
LABEL USING 127l0;Curue 
IMAGE "Curve Number 1 ",K 

GOTO Label_end 
| 

Grin_ label: Centerx=72.5 
Cent ery=62. 5 
CSIZE 2.5 

MOVE • 5*Cent erx , 1 3 
LABEL USING 13090JNI 
IMAGE "nl : " , DD. DDDDD 
MOVE .5*Centerx,9 
LABEL USING 13120;N3 
IMAGE " n3 : ",DD. DDDDD 
MOVE l . 5*Cent erx , 13 
LABEL USING 13150;Alpha 
IMAGE "Alpha : " , DD . DD, " degrees" 

MOVE l . 5*Cent erx , 9 
LABEL USING 13l30JNray 
IMAGE "Number of Rays : ",K 
CSIZE 3 

MOVE Cent erx , 20 
LABEL "GRIN TRRCE " 

LDIR 90 

MOVE 1.5, Cent ery 

LABEL "Radial Distance From the Axis ( inches )" 

GOTO Label_end 

t 

Gr i nc_l abe 1 : CSIZE 3 
LORG 5 
LDIR 0 
Cent erx«74 
Cent ery»64 

MOVE Cent erx , 5 

LABEL "Radius From the Origin (inches)" 

LDIR 90 

MOVE 1.5, Cent ery 

LABEL "Gradient Index Constant : C(r> (inches)" 

i . . 

Label end: CSIZE 15/4.54 
LDIR 90 
LORG 5 
SETUU 
SUBEND 

SUB X 1 pos ( X , Y ) 

OPTION BASE 0 
| 

COM INTEGER I , J , Curue , Np , Nn , N , Ns , Nr , REAL Aneg(-0,Apos(*),A<*) , 

COM A 1 pha, Tal pha, Rho , Tr ho , Rho_i n itial ,Trhoi ,Phi ,Tol , Norm , Alpha 
COM Nl , N2, N3, Percent i mage, Ya, Yb, Aperture, Y bullet 
\ 

• COM INTEGER Y0_1 oop , Nr ay , Add_ ray , Sur f_ no , F 1 ag , F 1 ag2 , N_i nc rement , H i t_ t ot a 
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M <M 



13510 

13520 

13530 

13540 

13550 

13560 

13570 

13590 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13630 

1 

13690 

13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13790 

13790 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13990 

1 

13990 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13990 

13990 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14090 

14090 

14100 

14110 

14120 

14130 

14140 

14150 



! 

DEG 

DEF FNYKY^Y^Talpha/CTalpha-Trho) ! FINDS THE Y-VALUE OF THE INTERCEPT 

! OF THE RflY FIND THE FIRST SURFACE 
DEF FNXl<Y)*Y/'Ta1pha ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 

! AND THE FIRST SURFACE 
IF Surf_no*2 THEN Hoops 
Y = FNY l < Y > 

Uoops:X*FNXl<Y) 

SUBEND 

SUB Xlneg<X,Y> 

OPTION BASE 0 

j 

COM INTEGER l , J , Cur ve , Np , Nn , N , Ns , Nr , REAL Aneg < * > f Apos'< -0,A<*>, 21,23,24 
COM A 1 pha, Tal pha, Rho , Trho , Rho_i n it i al , Trho \ ,iPb i , To J r , Norm , A 1 pha2 
COM N 1 , N2 , N3 , Perc ent_i mage , Ya, Yb , Apert ure ,-Y_by 1 1 et , 

i — “* 

COM INTEGER Y0_ 1 oop , Nr ay , Add_ray , Surf_no, FI ag, FI ag2,N_i ncrement , Hi t_tot a 

i 

DEG 

A 1 phan*- 1 *A 1 pha 
Talphan*TAN<Al phan> 

DEF FNY1 <Y>=Y*Ta1phan/<Ta1 ph an -Trho) ! FINDS THE Y-VALUE OF THE INTERCEPT 

! OF THE RAY AND THE FIRST SURFACE 
DEF FNX1 <Y>*Y/Ta1phan ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 

I AND THE FIRST SURFACE 
IF $urf_no*2 THEN Hoops 
Y*FNY 1 < Y > 

Uoops:X*FNXl<Y> 

SUBEND 

SUB Dialogue 
OPTION BASE 0 

COM INTEGER I , J, Curve, Np, Nn, N, Ns, Nr, REAL Aneg<*) , Apos<*> , A<*> , 21 , 23, 24 
COM A 1 pha, Tal pha, Rho , Trho, Rho_ i nitial ,Trhoi ,Phi ,Tol , Norm, Al pha2 
COM N1 , N2, N 3, Per cent_i mage, Ya, Yb, Aperture, Y_ bul 1 et 

i 

COM INTEGER Y0_1 oop, Nr ay , Add_ray , Surf_ no , F 1 ag , FI ag2 , N_i nc rement , H i t_t ot a 

COM INTEGER L i nec ount , L i nemax 
COM INTEGER Pselect,Hpib 

COM REAL Nm i n , Nmax , R0_ max 

COM Ray_trace*, Digitize$,Grin$,G*,GrincS,Plot$,Date$ 

COM X<*>, Y<*>,Xc<*>,N<*>,R<*> 

j 

COM Rho< * > , Phi <*>,C<*),Y3<*>,Hit<*> 

; 

DEG 

Initialize top:A1pha*21 

Talpha*TAN<A1pha) 

Rho_i n i t i al =0 
T rho_i *TAN < Rho_ i ni t i al > 

i ~~ 

To 1 * • 0000 1 
23*24*50 
N 1 *N3* 1 
N2* 1 . 5 

Nray* 1 0 ! IN ORDER TO OUTLINE THE APERTURE AN EXTRA RAY 

Add ray*0 ! MUST BE ADDED IF Ya 4 0 

Ya*0 

Yb*Y_bul let 
Apert ure*Ya-Yb 

I 

Y bul 1 et *1 . l 
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14160 

14170 

14180 

14190 

14200 

14210 

14220 

14230 

14240 

14250 

14260 



N_ i ncreinent 3 100 

Li nec ount 3 0 
L l nemax=46 

j 

Nmax*4 
Nmi n= 2 

Ym2=<i.05*V_bul Ut/2)"2 ! THE 1.05 IS ft FUDGE FACTOR TO 

Xm2 3 U.05*Y_bul 1 et / < 2*Tal pha) ) -2 ! PREVENT THE RADIUS FROM 
R0_max«SQR<Xm2+Ym2) ! BECOMING TOO SMALL AND CAUSING A 
! ” NUMERICAL ERROR IN THE INDEX SUBROUTINES 



14270 

14280 

14290 

14300 

14310 

14320 

14330 

14340 

14350 



Psel ect -7 
Hpi b-5 

i 

Grinl^'C" 

C$a"N" 

Gr i nc $ 3 " N " 

P 1 o t $ 3 " C " 
Digit i ze$ 3 "N" 
Datel 3 " " 



14360 REM *** TEMP *** 
14370 GOTO Alpha 



14380 REM 


*** TEMP 


14390 Begin 


: PRINT 


m" 




14400 


PRINT 


c " 




14410 


PRINT 


<GLM) . " 




14420 


PRINT 


s" 




14430 


PRINT 


r i abl es“ 




14440 


PRINT 


14450 


PRINT 1 


14460 


PAUSE 


14470 


CALL 


14480 


PRINT : 


14490 


PRINT 


14500 


PRINT 1 


1 used" 




14510 


PRINT 


14520 


PRINT 


14530 


PRINT 


14540 


PRINT 1 


14550 


PAUSE 


14560 


PRINT 1 


is M 




14570 


PRINT 


n“ 




14580 


PRINT 


obi em. " 




14590 


PRINT 


14600 


PRINT 


will " 




14610 


PRINT 


14620 


PRINT 1 


24 3 24; '• 


i nches. M 


14630 


PRINT 1 


14640 


PAUSE 


14650 


PRINT 1 


arr i ve" 




14660 

n 


PRINT 


14670 # 


PRINT 



to describe the second surface of the lens in the " 
upper half-plane." 



The second image plane is permanent, located at X 3 



PRINT "Non-axial rays approach the GLM from 'above', for all rays a 
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14680 
14690 
14700 
14710 
14720 
14730 
urf ace" 

14740 

ace normal • '* 
14750 

f ace normal . ' 



14760 

14770 

» 

14780 

14790 

14800 


1 

PRINT 


14810 


PRINT 


rf ace. 




14820 


PRINT 


14830 


PRINT 


14840 


PRINT 


). “ 
14850 


PRINT 


14860 


PRINT 


14870 


PRINT 


14880 


PRINT 


14890 


PRINT 


14900 


PRINT 1 


14910 


PRUSE 


14920 


R1 pha: PI 


14930 


PI 


14940 


PI 


14950 


II 


14960 


Index: PI 


14970 


PRINT 


14980 


PRINT 


di ent 


cases. “ 


14990 


PRINT 


homogeneous < 


15000 


PRINT 


15010 


PAUSE 


15020 


PRINT 


refraction (i 


15030 


PRINT 


15040 


PRINT 


ar i es 


u 


15050 


PRINT 


15060 


PRINT 


u>" 

15070 


PRINT 


15080 


PRINT 


15090 


PRINT 


15100 


PRINT 


enter 


is local 


15110 


PRINT 


15120 


PRINT 


2 ) 3“ 
15130 


PRINT 


the “ 
15140 


PRINT 


15150 


PRINT 


se. “ 

15160 


PRINT 


15170 


PRUSE 


15180 ' 


G * 3 " N 


15190 


INPUT 



PRINT “initiated in the upper half of the meridian plane.'* 

PRINT LIN(2> , “PRESS CONT" 

PAUSE 

PRINT PRGE , “ The program uses Snell's Law without approx i mat i on . “ 
PRINT “The appropriate variables are:" 

PRINT L I N < 1 ) , “ 1) Norm = dY/dX 3 slope of the normal to the s 

PRINT “ 2) Thetai 3 angle of incidence with respect to the surf 

PRINT “ 3) Thetar = angle of refraction with respect to the sur 

PRINT “ 4 ) Rho 3 angle of the ray with respect to the GLM-axis" 

PRINT “ (subscripts indicate the region the ray is in) 

PRINT L I N < 2 > , "PRESS CONT" 

PRUSE 

PRGE, “The sign convention is : " 

L I N < 1 ) , " 1) the origin is placed at the vertex of the first su 

“ 2) distances: <a> positive to the right of the origin." 

“ <b) positive above the origin (Y-axis)." 

" <c) positive out of the meridian plane (screen 

" (ie. a right hand system.)" 

3) angles: slope * Rlpha2 is POSITIVE for counter-clockwise" 
“ rotation from the GLM-axis to the ray" 

“ 4) symbols: unprimed = object space." 

“ primed 3 image space." 



Rlpha is the angle of inclination of the " 
surface with respect to the GLM-RXIS" 

* The current value of RLPHR i s R 1 pha; " degrees " 

> THE NEW VRLUE OF RLPHR ( DEGREES )?“, R 1 pha 

The lens system is assumed to be opersting in air." 
,he first index of refraction 3 nl 3 1.00000“ 

It is assumed that nl < n2 for the homogeneous and gra 



'!(!),“ 1) Parabola : the index of region 2 (the lens) v 

as a parabola from a min at the vertex - 
to a maximum (at a radius specified by yo 

then down to a value determined by the “ 
top of the GLM" 

The equation is C n(r) 3 k * r^2 3" 

KD," 2) Circle : the index varies as a circle whose c 

* 

at a specified radius from the origin" 

The equation is C n(r) 3 SQR( R0_ max^2 + r^ 

PRINT LIN(l),“The radius (for circle) has a minimum value which is half 
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15200 IF (G*="N" 

15210 PRINT PAGE , " 

15220 PRINT L I N< l ) 

15230 PRINT - 

15240 PRINT " 

circle.)" 

15250 PRINT " 

15260 PRINT " 



OR ( G $ s " n " ) THEN N2 
Required for grin 

1) Nmin * minimum value of the index of" 
of refraction ( default * " ;Nmin;")" 

2) Nmax * maximum value of the index (not required for 

< Default * "JNrnax;")" 

3) R0_max = radius from the origin at which the maximum 



15270 PRINT " value of the index occurs. < MINIMUM = ";R0 

max ; " ) " 

15280 INPUT "WHICH ONE : CIRCLE (C) OR PARABOLA (P) ( DEFAULT * C ) ? C/P",Gri 

n* 



15290 INPUT "WHAT IS Nmin ?",Hmin 

15300 IF ( G r i n $ 3 " C " ) OR (Grin$ = "c") THEN N3 

15310 INPUT "WHAT IS Nmax ?",Nmax 

15320 INPUT "WHAT IS R0_max ?",R0 max 

15330 N2: INPUT "WHAT IS n2 ?",N2 

15340 N3: INPUT "WHAT IS n3 ?“,N3 

15350 IF (C$="N") OR (C$-"n") THEN Rho_initia1 

15360 PRINT LIN(2) , " NOTE : When the parameter data is printed, the values 

of " 

15370 PRINT " the index at the first surface intercept will be " 

15380 PRINT “ printed in the folouing manner: " 

15390 PRINT " n<8> * 2.3543 n<9> = 2.3567 n<!0) = 1.9876" 

15400 PRINT " The subscript indicates the number of the ray intercepti 



ng" 

15410 PRINT " the first surface." 

15420 PRINT LINC2), "PRESS CONT" 

15430 PAUSE 

15440 Rho_i n i t i al : PR INT PAGE," The rays incident on the first surface are " 
15450 
15460 
1 * * 



PRINT "initially assumed to be parallel to the X-axis. " 

PRINT LIN<2>," If you want to trace rays which are at an ang 



15470 



PRINT "other than zero <0> degrees with respect to the X-axis, 



15480 

15490 

15500 

15510 

15520 

15530 Y_bu1 let: 
about the" 

15540 

u 



PRINT "then key in the value of the angle (in degrees) with " 
PRINT "respect to the X-axis." 

INPUT "RHO ?",Rho_initial 
Rho_ initia1--l*ABS(Rho_initial ) 

Trhoi*TAN(Rho_ initial ) 

PRINT PAGE, " The GLM is assumed to be assumed to be symmetric 
PRINT "longitudinal axis. The maximum value of the GLM radius is 



15550 
s. " 

15560 
se" 

15570 
15580 
15590 
15600 Aperture: 



PRINT "called Y_ bullet whose default value is ";Y_bullet;" inche 
PRINT L I N ( 2 ) , " If your design requires a different value, plea 



PRINT "enter that value now." 

INPUT "Y BULLET (INCHES) ?",Y bullet 
Yb«Y_bulTet 

PRINT PAGE," The aperture is the difference in radial distance 
from the GLM axis" 

15610 PRINT "projected onto the first surface, into which light is alio 

wed to enter" 



15620 

15630 

15640 

15650 

15660 

t . " 

15670 

15680 

15690 

15700 

15710 



PRINT "the GLM optical system. The parameters are 

PRINT LINO)," 1) Ya : the minimum Y-value of the aperture" 

PRINT " (default value *";Ya;"inch )" 

PRINT “ 2) Yb : the maximum Y-value of the aperture" 

PRINT " (default value »“ ; Yb; " i nch) and is £ Y_bu11e 

INPUT "WHAT IS Ya (INCHES) ?",Ya 
INPUT "WHAT IS Yb (INCHES) ?",Yb 
IF Ya>«Yb THEN BEEP 

IF Ya>*Yb THEN PRINT "Ya must be < Yb. Please enter again." 

IF Ya>*Yb THEN GOTO 15670 
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15720 Apert ure*Yb-Ya 

15730 IF Ya<>0 THEN Add_ray=l 

15740 Nray: PRINT PAGE," The program will t r ac € " ; Nr ay ; " rays through the syste 
m usless " 

15750 PRINT “you specify another value" 

15760 INPUT " How many rays do you want the program to trace?", Nray 

15770 Nray*INT<ABS<Nray>) 

15780 IF Nray< 1 THEN Nray=l0 

15790 IF <G**"Y"> OR <G*="y"> THEN Date 

15800 Digitize^: PRINT PAGE," The interval between <0 < Y ± ; Y_bu 1 I *t ; “ > 

and < -" ; Y_bu 1 1 et ; “ £ Y £ 0) have been divided" 

15810 PRINT " i nto" ; N_i ncrement ; " increments to determine ray density. 



15820 PRINT LINO), "If you want to change the number of increments, p 

lease do so now." 

15830 PRINT LIN<2),"The amximum number of increments is 100O. " 

15840 INPUT "NUMBER OF INCREMENTS ? ,, ,Nj'ncrement 

15850 N_ incremental NT < ABS<N_i ncrement > ) 

15860 IF N_i ncrement < l THEN N_i ncrement = 100 

15870 Date: PRINT PAGE 

15880 INPUT "What is today's date ?", Dates 

)R <GS="y") THEN Gymnastics 

The second surface must be input as polynomial of de 



15890 Start: 


IF 


<G*»" Y") 


15900 


PRINT 


PAGE, " 


gree “ 






15910 


PRINT 


"16 or 


stem J" 






15920 


PRINT 


"If you 


1 i t i es " 






15930 


PRINT 


" I i brar; 


15940 


PRINT 


"NOTE : 


15950 


PRINT 


it 


15960 


PRINT 




15970 

M 


PRINT 


LINO), 


15980 


PRINT 


II 


15990 


PRINT 


LINO), 


T15 " 






16000 


PRINT 


"fit yoi 


16010 


PRINT 


LINO), 1 


16020 


PAUSE 





16030 Coef datarPRINT PAGE 
16040 



16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

16190 

16200 

16210 

16220 

16230 

16240 

16250 

16260 

.06104 

16270 

06104 



2) Invert the X and Y values for the positive branch" 

3) Key in <Y,-X) for the negative branch" 



the lower half plane" 

If this is the case, then PRESS STOP, then REWIND 



If not, then PRESS CONT." 

! THE FOLLOWING DATA ARE ARRANGED AS FOLLOWS: 
! DATA CURVE No. 

! DATA NP,NN,N 

! DATA APOS COEF ICIENT3 X=f<Y) FOR Y>0 
! DATA ANEG COEFICIENTS X*f<Y) FOR Y<0 
! DATA Y*F<X) COEFICIENTS 



DATA l ! CURVE No. ONE 
DATA 4,4,4 

DATA .5003067966, l. 15219319,3.0138759,-3.4132912, 1.39217731 
DATA .5003067966,-1. 1 52 1 93 1 9 , 3 . 8 1 33759 , 3 . 4 l 329 1 2 , 1.39217731 
DATA -.45216186, 1. 1 3544007 ,-, 66353797 25054923 ,-. 034 1 74833 



DATA 2 ! CURVE No. 10 

DATA 3,3,3 

DATA 1.5193756399,2.27918152,-2.5230983, 1 . 63047031 
DATA 1.5193756399, -2.27918152, -2. 5230983, -1 .63047031 
DATA 3.3554752,-5.6349365,2.959523, -.4412373 



DATA 3 ! CURVE No. 11 

DATA 6,6,3 

DATA 2.0O6223634, .30397, 12. 96206, -62. 1508, 1 25 . 7966, - 1 1 4 . 0765 , 38 
DATA 2. 096223634, -. 30397, 12. 96206,62. 1503, 125. 7966, 114.0765, 33. 
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16280 ! DATA 

16290 ! 

16300 ! 

16310 DATA 

16320 DATA 

16330 DATA 

16340 DATA 

16350 DATA 

16360 ! 

16370 . ! 

16380 Explain: 

16390 
16400 
16410 
16420 
16430 
16440 
16450 

16460 Coef pos: 

16470 
16480 
16490 
16500 
16510 
16520 
ANCH (Np) ? M ,Np 
16530 PRINT L I N < 2 ) 

16540 Quick_1oop_p: PRINT "NOTE: 
branch c oef i c i ent s: " 



-11.205773, 13. 13159,-5.328168, .767801 



4 ! SURFACE NR 1 FOR n2 = 4, F=4 INCHES 

2 2 2 

.3184601721,2. 7540136449, -.3640723143 
.3184601721 , -2. 7540 1 36449 ,-. 3640723 1 43 
-. 1071362125, .3341667328, .02751837031 



Since this program is intended to be used to evaluate" 



"various second surfaces 
"design surface has been 
" The program wi 1 1 ask 
"time, key in any number 
"identify the surface." 

L I N( 2 ) , "PRESS CONT" 



a method of labeling the current" 
i nc orporat ed into the algorithm." 
you for a curve number. At that" 
(integer or real) you wish to use" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 

PRINT PAGE, "The current values of Curve and Np (the degree" 
PRINT "of the positive branch x * f(y) ) are:" 

READ Curve , Np, Nn, N 

PRINT LIN<1>," Curve * ";Curve 

M Np =* " ; Np 

"WHICH CURVE ARE YOU USING (CURVE No.) ?", Curve 
"WHAT IS THE DEGREE OF THE POLYNOMIAL FOR THE POSITIVE BR 



These are the current values of the positive 



PRINT 

INPUT 

INPUT 



16550 

16560 

16570 

16580 

16590 

16600 

16610 

16620 

16630 

16640 

NONE 

16650 

16660 

16670 

16680 

16690 

16700 

16710 

16720 

16730 

16740 

16750 

16760 

16770 

16780 

16790 

16800 

16810 

16320 

16330 

16340 

16350 

16360 

16370 

16330 

16890 



PRINT 

FOR 1*0 TO Np 
READ Apos(I) 

PRINT USING 16590J I, Apos(I) 

IMAGE "Apos("4D") * ",K 
NEXT I 
PRINT 

21 *Apos( 0) 

AnyS*"NONE" 

INPUT "ARE YOU GOING TO CHANGE ANY OF ALL OF THE COEFICIENTS ? SOME/ALLx 
, Any# 

IF (Any**"N0NE") OR ( Any *=" none " ) THEN None p 
IF (Any*="SOME") OR (Any$*"some" ) THEN Soroe~p 
AH_p:PRINT 

PRINT "Please key in the coeficients, beginning with the constant:" 
FOR 1*0 TO Np 

INPUT " " , Apos ( I ) 

PRINT USING 16590; I,Apos(I) 

NEXT I 
None_p: PRINT 
Y»*"N" 

INPUT "DO YOU NEED TO MAKE ANY CORRECTIONS ? Y/N",YS 
IF ( Y$*"N" ) OR <Y**"n") THEN Coef_neq 
Some p: INPUT "WHAT IS THE NUMBER OF THE COEFICIEINT ? (0,1,2, etc)",N pp 
INPUT "KEY IN THE CORRECT VALUE, THEN CONT" , Apos (Npp ) 

PRINT USING 16590; Npp, Apos(Npp) 

Y$*"Y" 

INPUT "IS THAT ALL" , Y$ 

IF ( YS*"y " ) OR ( YS* " y " ) THEN Coef neg 
IF ( Any $* " SOME " ) OR ( AnyS*"some " )~THEN Some_p 
GOTO Some_p 

Coef_neg: PRINT PAGE, "The current values of Curve and Nn (the degree" 

PRINT "of the negative branch x = f(-y) ) are:" 

PRINT LIN(l)," Curve » "{Curve 

PRINT " Nn * " ; Nn 

INPUT "WHAT IS THE DEGREE OF THE NEGATIVE BRANCH POLYNOMIAL (Nn) 



, Nn ' 



16900 Qui ck_J oop_n: PRI NT LIN(2) , " NOTE : These are the current values of the neg 



205 



At i ve 
16910 
16920 
16930 
16940 
16950 
16960 
16970 
16980 
16990 
NONE 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17330 
17340 
17350 
17360 
17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
17470 
17480 
17490 
17500 
17510 
17520 
17530 
1 

17540 



branch c oef i c i ent s : " 

PRINT 

FOR I 3 0 TO Nn 
REfiD AnegCI) 

PtfINT USING 16950; I, AnegCI) 

IMAGE "Rneg<"4D B ) = " , K 
NEXT I 
PRINT 

Any* 3 " NONE’* 

INPUT "ARE YOU GOING TO CHANGE ANY OF ALL OF THE COEFICIENTS ? SOME/ ALL/ 
, Any $ 

IF < Any* *" NONE" ) OR < Any 1» ” none " ) THEN None_n 
IF < Any S* " SOME 11 ) OR < Any f* " some H > THEN Some n 
A 1 1 _nl PR I NT 

PRINT "Please key in the coeficients, beginning with the constant:" 
FOR 1*0 TO Nn 

INPUT ” " , Aneg < I > 

PRINT USING 16950; I, AnegCI) 

NEXT I 
None_n: PRINT 
Y$ a “ N “ 

INPUT "DO YOU NEED TO MAKE ANY CORRECTIONS ? Y/N",YS 
IF < Y$*"N ) OR <Y**"n"> THEN Gymnastics 
Some n: INPUT "WHAT IS THE NUMBER OF THE COEFICIEINT ? (0,1,2, etc)", Nnn 

INPUT "KEY IN THE CORRECT VALUE, THEN CONT M , Aneg < Nnn ) 

PRINT USING 16950; Nnn, Aneg (Nnn) 

Y $ 3 " Y " 

INPUT "IS THAT ALL " , Yf 

IF < Y f 3 " y " ) OR < Y$»" y " > THEN Gymnastics 
IF < Any* 3 "SOME" > OR < Any* 3 " some " ) THEN Some_n 
GOTO Some_n 
Gymnast i cs: SUB END 



SUB Char 

FOR I 3 0 TO 79 

IF I»79 THEN PRINT CHRSC228) 

IF 1*79 THEN 17280 
PRINT CHRSC228); 

NEXT I 
SUBEND 

SUB X2pos<X2,Y) 

OPTION BASE 0 

COM INTEGER I , J , Curve , Np , Nn , N, Ns , Nr , REAL Aneg< *) , Apos < * ) , A< * ) , Z 1 , 23, Z4 

FOR I 3 0 TO Np 

X2 3 X2+Apos< I)*Y A I 
NEXT I 
SUBEND 

SUB X2neg< X2, Y) 

OPTION BASE 0 

COM INTEGER I , J , Curve , Np , Nn , N, Ns , Nr , REAL AnegC*) , AposC*) , A<*> , Z1 , 23, 24 

i 

FOR I»0 TO Nn 

X2 3 X2+Aneg< I)*Y /X I 
NEXT I 
SUBEND 

SUB Index_p<X,Y> 

OPTION BASE 0 
! 

COM INTEGER I , J , Curve , Np , Nn , N, Ns , Nr , REAL Aneg < , Apos < * > , A< * ) , Z 1 , 23 , 24 
COM A1 pha, Talpha,Rho,Trho, Rho^i ni t i al , Trho i ,Phi ,Tol ,Norm,Alpha2 
COM Nl , N2, N3, Percent i mage , Ya, Yb , Apert ure , Y_bu 11 et 
\ 

COM INTEGER Y0_1 oop , Nr ay , Add_ r ay , 3urf_no , F 1 ag , F 1 ag2 , N_i nc rement , H i t_t o t a 
COM INTEGER L i nec ount , L i nemax 
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17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

1 

17770 

17780 

17790 

17800 

17810 

17820 

17830 

17840 

17850 

17860 

17870 

17880 

17890 

17900 

17910 

17920 

17930 

17940 

17950 

17960 

17970 

17980 

17990 

1 

18000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

18090 

18100 

18110 

18120 

18130 

18140 

18150 

18160 

18170 

18180 

18190 



COM INTEGER Pselect,Hpib 

i 

COM REfiL Nm i n, Nmax , R0_max 
! 

DEG 

Xm2* . 60/Ta.l pha ! FROM y = mx + b AND Vmax * 1.2 

Ym2=Xm2*Talpha 

IF R0 max<SQRCXm2-2>Ym2^2> THEN Ro max=SQR < Xm2~2* Ym2~2 ) 
Radius»SGR<X~2+Y~2> 

R2=R0_max~2 
K=(Nmax-Nmin)/R2 
B* < Rad i us-R0_max > ~2 
N2=Nmax+K*B 
SUBEND 

SUB Index_c<X, Y> 

OPTION BfiSE 0 

j 

COM INTEGER I , J, Curve , Np , Nn , N , Ns, Nr , REfiL ftneg < * ) , ftpos < * ) , PC * ) , Z 1 , 23 , 24 
COM Alpha, Talpha, Rho, T rho , Rho_ i ni t i al , Trho i , Phi , To 1 , Norm, A 1 pha2 
COM N1 , N2, N3, Percental mage, Ya, Yb, Aperture, Y_bul let 

j 

COM INTEGER Y0_1 oop, Nr ay , ftdd_ray , Surf_no, FI ag , F 1 ag2, N_i ncrement , H i t_t ot a 

COM INTEGER Li necount , Li nemax 
COM INTEGER Pselect,Hpib 

I 

COM REftL Nmi n, Nmax , R0_max 

i 

DEG 

Xm2=.60/Talpha ! FROM y = mx + b ftND Ymax = 1.2 

Ym2*Xm2*T al pha 

IF R0 max<SQR<Xm2~2+Ym2~2> THEN Ro max*SGR < Xm2~2+Yra2~2 > 

Radi us*SQR < X A 2 + Y~2) 

A=R0_max^2 

B*(Radi us-R0_max ) ^2 

C2*ft-B 

N2=Nmin+SQRCC2> 

SUBEND 
SUB Density 
OPTION BftSE O 

j 

COM INTEGER I , J , Curve , Np , Nn , N , Ns , Nr , REAL flneg< * ) , ftpos < * ) , ft < * ) , Z 1 , 23 , Z4 
COM ftl pha, Tal pha, Rho, Trho, Rho_i ni t i al ,Trhoi ,Phi ,Tol ,Norm,ftlpha2 
COM Nl,N2,N3,Percent_image,Ya,Yb, Aperture, Y_bul 1 et 

j 

COM INTEGER Y0_1 oop , Nr ay , Add_ray , Surf_no, F 1 ag , FI ag2 , N_i ncrement , Hi t_tot4 

COM INTEGER L i nec ount , L i nemax 
COM INTEGER Pselect,Hpib 

COM REftL Nmi n, Nmax, R0_max 

COM Ray trace*, Di gi t i ze$, Gri n$, GS, Gri nc$, P 1 ot*, Date* 

COM X<*7,Y<*>,Xc<*>,N<*>,R<*> 
j 

COM Rho< *) , Phi <*>,C<*>,Y3<*>,Hit<*> 

! 

INTEGER Inc, K,L,M, Lines 
DEG 

! THIS ROUTINE COMPUTES THE RAY DENSITY IN ONE DIMENSION. 

! ASSUMPTIONS: 

! 1> THE POINT OF MAXIMUM RAY DENSITY HAS BEEN FOUND VIA A 

! DIGITIZE STATEMENT. 

! 2) THE VALUES OF Y3 HAVE NOT BEEN CHANGED TO REFLECT THE 

! NEW VALUE OF Z3 

i 

' PRINTER IS 16 
Ini t i al i z* : Nr»- 1 
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18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 
18290 
18300 
18310 
18320 
X2 POS 
18330 
18340 
18350 
18360 
18370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
18530 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
18670 
18680 
Inc XI 
18690 
18700 
18710 
18720 
18730 
18740 
18750 
18760 
18770 
18780 
18790 
18800 
1 

18810 

18820' 

18830 



Re draw: 



Pos i t i we 

Negat i we 
>'NEG 

Same : 



Next_i : 
Y3_array ; 



Hit zero; 



! ZERO THE ARRAY 

! FIND THE Ho. OF HITS IN THE 

! INTERVAL C -Y_BULLET , -Y BULLET +DELTA/2 ) 



Next — j : 
Hit mi ddl 



Next k: 



Hit last: 



Ns = -3 

FOR 1=1 TO Nr ay 
Nr=Nr+3 
Ns=Ns+5 
A*Xc< I) 

X=X< Ns ) 

Y=Y< Ns ) 

Rho = Rho< Nr ) 

Trho=TAN<Rho> 

IF A< Z l THEN Negat i we 

IF Rho=0 THEN Next_i ! TOTAL INTERNAL REFLECTION AT X2P0S 
GOTO Same 

IF Y<=-Y_bullet THEN Next_i ! Y2 = -Y_bul 1 et = >THE RAY MISSED 

IF Rho=0 THEN Next_i ! TOTAL INTERNAL REFLECTION AT X2NEG 
Deltay=<Z3-X>*Trho 
Y3=Y+De 1 1 ay 
X< Ns + 1 ) = Z3 
YCNs+l > =Y3 
NEXT I 
J=0 

FOR 1=1 TO Nray 
Y3 < J > *Y < 5* I -2 > 

J=J+i 
NEXT I 

MAT Hi t=ZER<2001) 

I nc =0 

Y 1 ast *-Y_ bul 1 et 
De1ta=Y_bul 1 et /N_i nc rement 
Ynext=Yl ast+Del t a/2 
Hi t < Inc >=0 
J=0 

FOR 1=1 TO Nray 

IF <Xc < I XZl > AND CY3CJ)=0) THEN Next j ! IGNORES NEGATIVE 

« BRANCH RAYS 

IF <Y3< J) >*Y1 ast ) AND < Y3 < J X Ynext ) THEN Hi t < Inc >*Hi t < Inc X l 
J = J + 1 
NEXT I 

e: ! FIND THE No. OF HITS IN THE INTERVAL 

! C -Y — BULLET + DELTA/ 2 , Y_BULLET-DEL TA/2 ) 

FOR L=i TO 2*N_i ncrement -l 
Inc=Inc+l 
Hi t < Inc ) =0 
Y 1 ast =Ynext 
Ynext =Y1 ast +De1 ta 
K*0 

FOR I»1 TO Nray 

IF (Xc(IXZl) AND < Y3< K ) = 0 ) THEN Next_k ! IGNORES 

! NEGATIVE BRANCH RAYS 

IF < Y3< K) >=Y 1 ast ) AND <Y3<KXYnext> THEN H i t < I nc > =H i t < 

K=K+l 
NEXT I 
NEXT L 

I nc =2*N increment ! FIND THE No. OF HITS IN THE LAST INTERVAL 

H i t < Inc7=0 ! CY BULLET-DELTA/2, Y BULLET 1 

M*0 

Y 1 ast =Y_ bul let-Delta/2 
Ynext =Y_bul 1 et 
FOR 1=1 TO Nray 

IF (Xc<IXZl) AND <Y3<MX0> THEN Next m ! IGNORES 

T NEGATIVE BRANCH RAYS 

IF < Y3<M> > = Y 1 ast ) AND < Y3 < M X =Ynext > THEN Hit<Inc)=Hit<IncX 



Next_mi 
Normal i ze 



M=M+ 1 
NEXT I 

; Hit t ot al =0 



! NORMALIZE THE No. OF HITS ON THE 
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13340 

13850 

13860 

18370 

18330 

13890 

18900 

13910 

18920 

13930 

13940 

13950 

13960 

18970 

18930 

18990 

19000 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19030 

19090 

19100 

19110 

19120 

19130 

19140 

19150 

19160 

19170 

19180 

19190 

19200 

19210 

19220 

19230 

19240 

19250 

19260 

19270 

19230 

19290 

19300 

19310 

19320 

19330 

19340 

19350 

19360 

19370 

19380 

19390 

19400 

19410 

19420 

19430 

19440 

19450 

19460 

19470 

19430 

19490 

19500 



FOR 1*0 TO 2*N_i ncr ernent ! IMfiGE PLANE <23> TO THE TOTAL 

Hi t_total = H i t_tot al +H i t < I ) ! Ho. OF HITS 
NEXT I 

i 



IF Hit_total=0 THEN None 
FOR 1*0 TO 2*N_i nc rement 
Hit<I>*Hit<I)/Hit_tota1 
NEXT I 



None: Pc t *H i t_t ot al /Nray 

Perc*nt_if«age = Pct*100 
Graph: CALL Plot 

IF H i t_t ot al =0 THEN Label_ 
First_bar: X 1 as t *-Y_bu 1 1 et 

Xnext=Xl ast+Del ta/2 ! INTERVAL 



! * OF RAYS THAT ARRIVE AT THE 
! IMAGE PLANE 
! PLOT AND LABEL THE AXES 

! DRAW THE HISTOGRAM 
C -Y_BULLET , - Y_BULLET +DELTA/2) 



I nc =0 

IF H i t < Inc ) =0 THEN Middlemans 
CLIP XI ast f Xnext , 0 f H i t < Inc > 

FRAME 

GOSUB Delt 

Middle_b* rs: POP 1=1 TO 2*N_i nc rement - 1 ! INTERVAL 

Inc * Inc ♦ 1 ! C -Y_BULLET + DELTA/2 , Y_BULLET- DELTAS 2 > 

X 1 ast *Xnext 



Xnext *X1 ast+De 1 t a 



IF H i t C I nc > *0 THEN Next i m 
CLIP Xlast, Xnext, 0,Hit<Inc>~ 

FRAME 

GOSUB Delt 
Next NEXT I 

Lastjar: Inc=2*N_i ncrement ! INTERVAL C Y_BULLET-DELTA/2, Y_BULLET ] 

XI ast *Y_b u 1 1 et -De 1 t a/2 
Xnext *Y_b u 1 1 et 

IF Hit*<lnc)*0 THEN Label_ 

CLIP Xlast,Xnext,0,Hit<Inc) 

FRAME 

GOSUB Delt 
Label : LDIR 0 
LORG 2 
! SETGU 

! MOVE 2,2 

! CS IZE 2.5 

! LABEL "PRESS CONT" 

! SETUU 

CSI2E 15/4.54 
BEEP 

WAIT 250 

BEEP 

PAUSE 

EXIT GRAPHICS 
SUBEXIT 



Delt: Lines*10 



De 1 t*< Xnext -XI ast )/L i nes 



X=X1 ast -De 1 t 



FOR J»1 TO Lines 
X*X*De 1 t 
MOVE X,0 
DRAW X, H i t < Inc > 

NEXT J 
RETURN 
SUBEND 
SUB Picture 
Scale : GCLEAR 

PLOTTER IS 13, "GRAPHICS" 
GRAPHICS 

LIMIT 0, 184,0, 140 
SCALE -20, 152.4,-55,55 
AXES 5, 5, 0,0, 10, 10 
Label : MOVE 20,45 
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19510 

19520 

19530 

19540 

19550 

19560 

19570 

19530 

19590 

19600 

19610 

19620 

19630 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780 

19790 

19300 

19810 

19820 

19830 

19840 

19850 

19860 

19870 

19880 

19890 

19900 

19910 

19920 

19930 

19940 

19950 

19960 

19970 

19980 

19990 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 



LABEL “THE PROBLEM” 
MOVE 20,44 
DRAW 50,44 
Draw body: MOVE 0,0 

DRAW 74,30 
DRAW 184,30 
MOVE 0,0 
DRAW 74,-30 
DRAW 184,-30 
Draw inlet: MOVE 70,35 
DRAW 80,33 
DRAW 184,38 
MOVE 70,-35 



DRAW 80,-38 



DRAW 


184,-33 


Second surf: MOVE 


30,0 


DRAW 


35,5 


DRAW 


40,9 


DRAW 


45, 13 


DRAW 


50, 15 


DRAW 


74,30 


MOVE 


30,0 


DRAW 


35,-5 


DRAW 


40,-9 


DRAW 


45,-13 


DRAW 


50,-15 


DRAW 

Ray: MOVE 0, 15 
DRAW 40, 15 
DRAW 45, 13 
DRAW 184,-14 


74,-30 


Image plane: MOVE 


30,30 


LINE 


TYPE 4 


DRAW 


80,-30 


Labe1_pi cture: MOVE 65,-! 



LINE TYPE 1 

LABEL "5/54 GLM” 

MOVE 85,15 

LABEL "IMAGE PLANE” 

MOVE 15,2 

LABEL "ALPHA" 

MOVE 10,0 
DRAW 8,2.5 
MOVE 5, 18 

LABEL "INCIDENT RAY 
MOVE 35,2 
LABEL "21" 

MOVE 35,2 
DRAW 30,0 
MOVE 113,2 
LABEL "Xc" 

MOVE 113,2 
DRAW 110,0 
MOVE 82,2 
LABEL "23" 

MOVE 82,2 
DRAW 30,0 
MOVE 130,3 
LABEL "C" 

MOVE 131.5,1.5 
LABEL -L" 

MOVE 5,-10 
LABEL ”n 1 " 

MOVE 30,-10 
LABEL ”n2" 

MOVE 50,-10 



210 



20170 LABEL "n3" 

20180 Finished: MOVE 15,-55 
20190 ! LABEL "PRESS CONT" 

20200 BEEP 

20210 WAIT 250 

20220 BEEP 

20230 PAUSE 

20240 EXIT GRAPHICS 

20250 SUBEND 

20260 SUB X2p<X,Y) 

20270 OPTION BASE 0 
28230 ! 

20290 COM INTEGER I , J , Cur ve , Np , Nn , N , Ns , Nr , REAL Aneg ( * ) , Apos < * > , A < * > , 2 1 , 23 , 24 
20300 ! 

20310 DEG 

20320 FOR 1=0 TO N 

20330 Y=Y+A< I)*YM 

20340 NEXT I 

20350 SUBEND 

20360 SUB X2nCX,Y> 

20370 OPTION BASE 0 
20330 ! 

20390 COM INTEGER I , J , Cur ve , Np , Nn , N , Ns , Nr , REAL Aneg < * > , Apos ( * ) , A < * ) , 2 1 , Z3 , 24 
20400 * 

20410 DEG 

20420 CALL X2pCX,Y) 

20430 Y*-1*Y 

20440 SUBEXIT 

20450 SUB Min<Xm<*),X, INTEGER M) 

20460 OPTION BASE 0 

20470 I 

20480 ! DIM Xm<M) 

20490 ! 

20500 X = Xm< 0 ) 

20510 FOR 1=1 TO M 
20520 X=Min<X,Xm<I>) 

20530 NEXT I 
20540 SUBEND 

20550 SUB Max<Xm<*>,X, INTEGER M> 

20560 OPTION BASE 0 
20570 ! 

20580 ! DIM Xro< M > 

20590 ! 

20600 X=Xm<0 ) 

20610 FOR 1=1 TO M 
20620 X=M I N< X , Xm < I ) ) 

20630 NEXT I 
20640 SUBEND 
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APPENDIX C 



POLYNOMIALS USED FOR THE SECOND SURFACE 

A. INTRODUCTION 

The following discussion compares the attributes of three 
analytic expressions, in polynomial form, used as second sur- 
faces for a conical lens. The lenses are compared in terms 
of the individual lens ability to cause some or all of the 
incident light rays to converge to a point. The points of 
ray convergence are referred to as "focal” points although 
they are not focal points in the standard usage of the term. 
Lens designers have developed a system of standards used as 
figures of merit to compare one lens to another. These 
standards include spherical abberation, coma, tilt, astigma- 
tism and others. The figures of merit have not been calcu- 
lated because the three curves discussed in this appendix are 
known to be completely unsatisfactory to use as refracting 
surfaces. The purpose of the thesis is to discover which 
properties of a curve to investigate in order to lead to 
usable design. Therefore an intuitive comparison of ray 
diagrams, histograms of ray distributions and the set of 
basic design criteria described in chapter III are the basis 
for the discussion of curves A, B and C in this appendix. 

B . CURVE A 

Curve A, shown in figure C-l was the first analytic ex- 
pression used as a second surface to produce a ray diagram. 
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Figure C-l. Conical Lens with the Second Surface Defined by Curve 



The curve was calculated by otaining the data listed in 
Table C-l from an arbitrary hand drawn curve. These data 
were used as the input to a regression analysis routine in 
the HP-9845B utilities library. Since TRACE requires the 
second surface to be expressed as a polynomial function of 
y, three curves were fit to the data. Table C-II contains 
the coefficients for each of the polynomials. The first 
polynomial relates the radial distance from the GLM axis to 
the distance along the GLM axis, i.e. radius = f (distance 
along the GLM axis) . The remaining two are required by 
TRACE for ray tracing and graphics purposes. The second 
expression relates the distance along the GLM axis to the 
radius from the axis in the upper half-plane; i.e. distance 
along the GLM axis = f (radius). The third expression relates 
the distance along the GLM axis to the radius in the lower 
half-plane; i.e. distance along the GLM axis = f (-radius). 

All linear dimensions are in inches. 
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TABLE C-I 



DATA POINTS FOR CURVE A 



y = f (x) * x = f(y)* x = f(-6)* 

(Ordinate , Abscissa) (Ordinate , Abscissa) (Ordinate , Abscissa) 



0 . 500 , 0.00 
0 . 600 , 0.069 
0 . 700 , 0.138 
0 . 800 , 0.188 
0 . 900 , 0.238 

1 . 000 . 0.231 

1 . 500 . 0 . 500 

2 . 000 . 0.731 

2 . 500 . 0 . 938 
2 . 900 , 1.100 



0 . 000 , 0.500 
0 . 069 , 0.600 
0 . 123 , 0.100 
0 . 133 , 0.300 
0 . 238 , 0. 900 
0 . 281 , 1.000 
0 . 500 , 1.500 
8 . 731 , 2.000 
0 . 938 , 2.500 
1 . 100 , 2.900 



0 . 000 , 0.500 

- 0 . 069 , 0.600 

- 0 . 138 , 0.700 

- 0 . 188 , 0.800 

- 0 . 238 , 0.900 

- 0 . 281 , 1.000 

- 0 . 500 , 1.500 

- 0 . 731 , 2.000 

- 0 . 938 , 2.500 

- 1 . 100 , 2.900 



* : For x = distance along the GLM axis and 

y = radial distance from the GLM axis. 
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TABLE C-II 



POLYNOMIAL COEFFICIENTS FOR CURVE A 



Coefficient 

Number 

a i y = f (x) * 



Positive. Negative 

Branch. Branch 

x = f Cy) * x = f (-y) * 



a . 
r 



- 0.45216186 

1.18544007 

- 0.66358797 

0.25054923 

- 0.034174838 



0.5003067966 
1. 15219319 
3.0138759 
- 3.4182912 
1.39217781 



0.5003067966 

- 1.15219319 

3.0138759 

3.4182912 

1.39217781 



*: For x = distance along the GLM axis and 

y = radial distance from the GLM axis. 
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A ray diagram using TRACE, which is shown in figure C-2, 
demonstrates that curve A has the ability to focus some of 
the rays to a point near the wall of the GLM at a distance of 
21.18 inches along the GLM axis. Figure C-3 is the histogram 
of the ray distribution for figure C-2 and shows a maximum at 
1.08 inches. If this distribution were rotated about the GLM 
axis, the two dimensional distribution would be a set of 
concentric rings centered on the GLM axis with the most in- 
tense ring at a radius of 1.08 inches. Although this ray 
pattern is unsatisfactory, the fact that some rays converged 
to a focus was encouraging. 

The converging rays were coming from the middle region of 
the curve. The slope of the middle region of the curve is 
slightly larger than the slope of the first surface. The 
slope of the regions above and below the middle region have 
slopes which are approximately the same as and greater than 
the slope of the first surface respectively. The ability of 
the middle region to focus light rays suggested the existence 
of a range of slopes which would cause convergence of light 
rays. The light rays which intercept the second surface in 
the lower half-plane are totally internally reflected because 
of the large angle of incidence. Total internal reflection 
occurs when Snell's Law sin0 R = (^/n^) sinQ^ results in 
sin > 1. The critical angle of incidence 0 is where 

sin0„ = 1 and any angle greater than 0 results in total 

i\ c 

internal reflection. The range appears to be in a narrow 
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Figure C-2 . Ray Diagram for a Conical Lens Using Curve 
as the Second Surface. 
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Figure C-3. Histogram of the Ray Distribution on the Image 
Plane Shown in Figure C-2 . 



band with the minimum value greater than the value of the 
cone angle, a. Since the curve is concave with respect to 
the first surface, the next step of the investigation was to 
study curves with the appropriate slope comparable with curve 
A and regions concave and convex with, respect to the first 
surface. These two criteria were the basis for choosing 
curves B and C for further investigation. 

C . CURVE B 

Curve B, shown in figure C-4 was chosen because the 
analytical expression which describes the curve exhibits 
regions similar to those discussed for curve A. The shape 
of curve B is smooth with an inflection point providing 
regions concave and convex with respect to the first surface. 
The data used to generate the analytical expression for the 
curve are listed in Table C-III. Three analytic expressions 
were calculated as for curve A. The coefficients for the 
three polynomials describing curve B are listed in Table C-IV. 

The ray diagram in figure C-5 demonstrates the ability 
of curve B to cause some of the light rays to converge to a 
"focal" point. A ray diagram with an image plane located at 
the point of maximum ray density is shown in figure C-6 . Al- 
though this ray distribution is not satisfactory the distri- 
bution of rays is relatively better than the ray distribution 
for curve A shown in figure C-2. 

The ray distribution of curve B is better than that for 
curve A because the point of ray convergence is closer to 
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TABLE C-III 



DATA POINTS FOR CURVE B 



y = f (x) * x = f Cy) * x = f(-y)* 

(Ordinate, Abscissa) (Ordinate , Abscissa) (Ordinate, Abscissa) 



1.500.0. 000 

1.700.0. 075 

1.900.0. 200 

2 . 100 . 0 . 394 

2 . 300 . 0 . 569 

2 . 500 . 0 . 744 

2 . 700 . 0 . 888 
2 . 900 , 1.000 

* : For 



0 . 000 , 1.500 
0 . 075 , 1.700 
0 . 200 , 1.900 
0 . 394 , 2.100 
0 . 569 , 2.300 
0 . 744 , 2.500 
0 . 888 , 2.700 

1 . 000 , 2.900 



0 . 000 , 1.500 
- 0 . 075 , 1.700 
- 0 . 200 , 1.900 
- 0 . 394 , 2.100 
- 0 . 569 , 2.300 
- 0 . 744 , 2.500 
- 0 . 888 , 2.700 
- 1 . 000 , 2.900 



x = distance along the GLM axis and 
y = radial distance from the GLM axis. 



TABLE C-IV 



POLYNOMIAL COEFFICIENTS FOR CURVE B 



Coefficient 

Number 

a i y = f (x) * 



Positive 

Branch. 

x = f (y). * 



Negative 

Branch 

x = f (-y) * 



a o 


3.3554752 


1.5193756399 


1.5193756399 


a i 


-5.6849365 


2.279198152 


-2.279198152 


a 2 


2.959523 


-2.5230983 


-2.5230983 


a 3 


-0 . 4412878 


1.63047031 


-1.63047031 


* ; 


For x = distance along the GLM axis and 

y = radial distance from the GLM axis. 
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both the lens and the GLM axis. The histogram for curve B in 
figure C-7 shows the point of maximum ray density is located 
at a radius of approximately 0.2 inch from the GLM axis. The 
point of maximum ray density for curve A is at a radius of 
approximately 1.08 inch from the GLM axis. Although curve A 
causes more of the rays which strike the image plane to focus 
than curve B does, the ability to achieve a short focal length 
is more desirable and therefore curve B is judged to be better 
than curve A. A second factor which, must be taken into ac- 
count is the fraction of rays transmitted through the lens. 
Curve A transmits 84% (42 of 50) of the incident rays through 
the lens. Curve B transmits 6 8% (.34 of 50) of the light rays 
through the lens. The fraction of transmitted rays could be 
increased by moving the second surface forward and making the 
lens thinner. 

The ray diagram and histogram for curve B in figures C-6 
and C-7 reveal the absence of a large number of rays in the 
lower half-plane near the lens. Rotating the histogram 
about the GLM-axis would generate a set of concentric rings 
with the most intense at a radius of 0.2 inch from the GLM 
axis. 

Using the ray diagram and histogram for curve A in fig- 
ures C-2 and C-3 as baseline design figures for the GLM lens 
curve B is judged to be the superior curve of the two due to 
the capability of curve B to cause light rays to converge in 
a region relatively close to the lens and near the GLM axis. 
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Figure C-7. Histogram of the Ray Distribution and the Image Plane 



Curve A exhibited one convex region and one focal point. 

The rays intercepting the second surface in the lower half- 
plane were totally internally reflected as they were for 
curve A. 

The investigation was now directed to probe the ability 
of a convex surface to cause convergence of the light rays 
at a shorter distance along the GLM axis than a concave 
region. Curve C was chosen because the analytic expression 
is a higher order polynomial with several inflection points. 

D . CURVE C 

Curve C shown in figure C-8 was chosen because the higher 
order polynomial contains several inflection points. The 
inflection points provide regions of concave and convex sur- 
faces. If the results for curve B are valid then curve C 
should cause rays to converge to several focal points, one 
for each convex region. The data points for curve C listed 
in Table C-V were obtained and the polynomial coefficients 
in Table C-VI were generated in the same manner as for curve 
A. 

The ray diagram in figure C-9 show two distinct areas 
where rays exiting the lens from a convex region converge. 

The focal points possess the same characteristics as those 
of curve B. The focal points are located in a region close 
to the lens and are formed from rays emerging from a convex 
portion of the surface. Light rays refracted from concave 
regions of the lens do cross other light rays, but do not 
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TABLE C-V 





DATA POINTS FOR CURVE C 


y = f (x) * 


x = f (y) * x = f (-y) * 



(Ordinate, Abscissa) (Ordinate , Abscissa) (Ordinate , Abscissa) 



2 . 000 , 0.00 


0.000,2.000 0.000,2.000 


2 . 100 , 0.081 


0.081,2.100 -0.081,2.100 


2.200,0.175 


0.175,2.200 -0.175,2.200 


2.300,0.244 


0.244,2.300 -0.244,2.300 


2.400,0. 331 


0.331,2.400 -0.331,2.400 


2.500,0.500 


0.500,2.500 -0.500,2.500 


2.600,0.600 


0.600,2.600 -0.600,2.600 


2.700,0.612 


0.612,2.700 -0.612,2.700 


2.800,0.744 


0.744,2.800 -0.744,2.800 


2.850,0.8125 


0.8125,2.850 -0.8125,2.850 


2.900,1.000 


1.000,2.900 -1.000,2.900 


* : For x = 


distance along the GLM axis and 


y = 


radial distance from the GLM axis. 
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TABLE C-VI 



POLYNOMIAL COEFFICIENTS FOR CURVE C 



•efficient 

Number 

a. 

i 


y = f (x) * 


Positive 
Branch 
x = f (y) * 


Negative 
Branch 
x = f (-y) * 


a 

o 


-11.205773 


2.003622364 


2.003622364 


a i 


13.18159 


0.30397 


-0.30397 


a 2 


-5.328168 


12.96206 


12.96206 


a 3 


0 . 767801 


-62.1508 


62.1508 


a 4 


0.00 


125.7966 


125.7966 


a 5 


0.00 


-114.0765 


114.0765 


a 6 


0.00 


38.06104 


38.06104 



* : For x = distance along the GLM axis and 

y = radial distance from the GLM axis. 
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Second 



converge as a group as do the light rays from the convex 
regions . 

Comparing the focal points caused by curve C shown in 
figures C-10 and 11 with figure C-l for curve A shows that 
the focal point caused by curve A is located at a point 21.18 
inches along the GLM axis and at a radius of -1.08 inches 
(21.18, - 1.08) inches. The focal points for curve C are 
positioned at approximately (3.46, -0.25) inches and (3.25, 
0.54) inches. If the histogram in figure C-12, drawn for 
the image plane in figure C-10 was rotated about the GLM axis 
a set of concentric rings would be formed. The most intense 
rings would be located at radii of 0.25, 0.34 and 0.44 inch. 
Rotating the histogram in figure C-13 drawn for the image 
plane in figure C-ll would produce a similar set of rings, 
the most intense located at radii of 0.16 and 0.54 inch. 
Comparing the number of rays transmitted reveals curve A 
transmits 84% (42 of 50) of the incident rays and curve C 
transmits 58% (29 of 50) of the incident rays. However, 
since curve C causes light rays to converge in a region 
closer to the lens than does curve A, curve C is judged to 
be better than curve A. Also, all but one ray which inter- 
cepted the second surface of the lens using curve C in the 
lower half -plane experienced total internal reflection at 
the second surface. 
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Using Curve C with the Image Plane at 
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Figure C-ll. Ray Diagram Using Curve C with the Image Plane at 
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Figure C-12 . Histogram of the Ray Distribution on 
Plane in Figure C-10. 
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Figure C-13. Histogram of the Ray Distribution on the Imaqe 
Plane in Figure C-ll. 



E. CONCLUSIONS 

Three conclusions are drawn from the comparison of curves 
A, B and C. First, a range of slopes for the second surface 
exists which will enable the second surface to refract light 
to a focal point. The ray diagrams for curve A, B and C 
shown in figures C-2, C-5 and C-9 illustrate this relation- 
ship as well as the fact the rays which intercepted the 
second surface in the lower half-plane were almost all total- 
ly internally reflected. The relationship between the slopes 
of the first surface tana and the second surface tana 2 
is shown in figure C-14. Rays are refracted in the region 
where a 2 > the functional value for a given index of refrac- 
tion; rays experience total internal reflection when a 2 < 
the functional value for a given index of refraction. The 
second conclusion is that a second surface which is convex 
with respect to the first surface causes light rays to con- 
verge in a region much closer to the lens than a concave lens. 
The third conclusion is that a single polynomial used to 
describe the second surface of a lens does not satisfactorily 
refract rays to a focus. CHART calculated surface D shown 
in figure C-15 for eleven rays. This is surface number one, 
illustrated in figure 17. A parabola was fitted to the eleven 
points using the HP-9845B Utilities Package. The fit appears 
to be quite good, especially when figure C-15 is compared to 
figure 17. However, when 50 rays are traced through the lens 
the ray diagram in figure C-15 is the result. The associated 
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Figure C-14. The Angle of the Tangent Line of the Second Surface 

as a Function of the Angle of the Tangent Line at the 
First Surface a for Total Reflection at the Second 
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Figure C-15. Ray Diagram for a Conical Lens Using Curve D as the 
Second Surface. 
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Figure C-16 . Histogram of the Ray Distribution on the Image Plane 
in Figure C-15. 



histogram in figure C-16 shows the ray distribution on the 
image plane at the design focal point of 4.00 inches. 
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APPENDIX D 



THE USE OF A GENERAL BLOCK OF MATERIAL AS A LENS 



LCDR C.L. Burmaster, Naval Postgraduate School, suggested 
the use of a rhombus shown in figure D-l as a refracting lens 
because this type of lens should transmit light without aber- 
ration. The following discussion applies Snell's Law to this 
lens with the following boundary conditions: 

1) Side © is parallel to side ©• 

2) Side © is parallel to side © and symmetrical to 
the GLM axis. 

3) The ray in medium 3 is parallel to the incident ray 
in medium 1. 

4) the index of refraction of the lens is related to the 
indices of media 1 and 2 in the following manner: 

n^ < n .2 and ^ > n^ 

The incident ray in medium 1 makes an angle of incidence 
0 I with n^ the normal to the first surface. The ray is 



refracted into the lens at an angle of refraction, 0 R 



with 



respect to n, according to the relation sin0 = (n 1 /n 0 ) sin0 T 

X Z X 

Snell's Law. The ray traverses the lens and forms the angle 



of incidence 0. 



with the normal to surface 4. The ray 



is refracted according to sin0 R = (n 2 /n 2 )sin 0 I noting 

k 4 x 4 

that since surface © is parallel to surface © , n^ is 



= 0 , 



Since the ray in 



parallel to n. and therefore 0 T 

4 x 4 "1 

medium 3 is parallel to the incident ray in medium 1 0 O = 9_, 

R 4 1 
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and applying Snell's Law at surface number 1 
n 2 

sin0 T = — sin0 n 

1 n i R i 

and again at surface number 4 
n 2 

sin0 o = — sin0_ 

R 4 n 3 *4 

therefore equating 0 T and 0_ 

I 1 R 4 

^2 = ^2 
n l " n 3 

therefore n^ = n^. 

The conclusion for this lens is that the indices of refrac- 
tion for media 1 and 3 must be equal. The lens causes inver- 
sion of the image because the rays are incident in the upper 
half -plane and exit in the lower half-plane. 

A more general lens is shown in figure D-2 which does not 
have boundary conditions 1) and 2) above. All other boundary 
conditions apply and in addition the lens is symmetric about 
the GLM axis. 

The incident ray in medium 1 forms an angle of incidence 

0 T with n. , the normal to surface . The ray is refrac- 
X 1 1 

ted according to sin0 = (n./n_)sin0 T and traverses the 

R i 1 2 I 1 

medium, forming the angle of incidence 0_ with n , the 

x 4 4 

normal to surface (4) . The ray is refracted into medium 3 
according to sin0_, = (n_/n o )sin0_ parallel to the incident 
ray in medium 1. Noting the angular relationship between h, 
and n^ in figure D-3 such that 0^ = © 2 + <5 and 6 = a - y, 
then = a - y where a and y are the angles of sides 
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Figure D-2 . Shape, Geometry and Symbol Definition for a General 
Block Lens. - 
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Figure D-3. Angular Relationships for the General Block Lens 
in Figure D-2. 



® and ® with the GLM axis, respectively. 

Now 0 R ^ = j - y 

Hence 0_ = 5- - (a - y) 

k 4 ^ 

Similarly 0 T = 0 + 6 = 0 + a - y 

I 4 R 1 R 1 

From Snell's Law applied at side ® is 
n 2 

sin0_ = — sin0 T . 

R - n~ I - 

4 3 4 

Noting that 0_ = 0+5 / 6=a-y and Y = t 0_ 

I 4 R 1 2 R 4 

sin 9 R 4 = KJ sin(e Ri + ° + 

Simplifying by trigonometric expansions for sine and cosine 
yields 



tan0. 



n^ + 1*2 sin(0 R + a) 
n^cos ( 0 R + a) . 



(D-l) 



r n i 

with 0_ = arcsin - — sin0 T 

*1 L n 2 X 1 



Equation (D-l) is a necessary but not sufficient condition 



for the ray in medium 3 to emerge from surface 4 parallel to 



to the incident ray in medium 1. The final condition relates 

the angles of surfaces (J) and ® and 0 = 0 + 6 as 

4 I 

shown in figure D-3. 
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Applying Snell's Law at surface @ and using trigonometric 
expansions yields 



n^ sin(0 R + a) - n^ 

tany - ^ — cos (q + 

2 R x 



(D- 2 ) 



with. 8_ = arcsin 

R 1 



(n 2 /n 



j ) sinSj j . 



With equations (D-l) and (D- 2 ) rearranged to relate the 
tan(0 R + a) as the independent variable the equations 



become 



tan(0 R + a) = - ^ 



and 



tan0 + 
R 4 



n. 



tan( 9 R + a) - - l eos( A + a ) 



n, / 



+ tan6 



(D- 3 ) 



) 



(D- 4 ) 



Since equation (D- 3 ) equals equation (D- 4 ) and solving for 
tany yields 



n 3 n 3 

tany = tan0_. + — — 7-3 — r + — 

1 cos(0 R + a) n 2 



(D- 5 ) 



7T 

With the condition that y + 0 = and noting that 

k 4 z 

^1, = £■ - a, 6-a-y and 0 T = 0_ +6 

± z J- 4 



R^ = arcsin 



in ^1 sin (it - a) 

Ln 0 2 J 



and 



0 R = arcsin 



n 3 

— sin ( 0 + a 

n 2 R 1 



- Y) 
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Equation (D-5) is recognized as a transcendental equation 
of the form 



tany = tanjarcsin 



in [4 sin(9 Rl + “-*>]} 



n. 



n. 



cos(8 R + a) n 2 



+ (D-6 ) 



which must be solved iteratively. The constraints on the 



solution are that (9 



R + a) < j and 



(n 3 /n 2 ) sin (0 R + a + y) < 1 and 




Y = 



7T 

2 * 



The appearance of the configuration of this lens in 
3-dimensions would be two cones fit base to base. The 
image formed would be inverted with the center missing; 
i.e. an annulus. Therefore a substantial amount of energy 
could be lost in the image if the energy distribution of 
the object is Gaussian with the maximum at the center of 
the object. Therefore equations (D-l) and (D-6) are neces- 
sary and sufficient conditions to insure the incident ray 
in medium 1 is parallel to the exit ray in medium 3. If the 

condition that 9_. = 0 T then the general lens reduces to 

R 2 I 1 

the rhombus of figure D-l, or that of a parallelopiped in 
figure D-4. The position a block lens would occupy in the 
GLM is shown in figure D-5 . 
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Figure D-5 . Position of a Block Lens in the GLM 



APPENDIX E 



GRADIENT INDEX OPTICS 



The development of material which exhibits a continuous 
change in the optical index of refraction over distance has 
opened a new area in the field of optics. Gradient index 
CGRIN) material has been applied in the field of fiber optics 
communications and integrated circuits with expanding numbers 
of applications. GRIN has the effect of replacing individual 
lenses in an optical system. Theoretically GRIN material has 
the ability to refract light because of the continuous change 
in index of refraction in the medium. Practically the amount 
of refraction is proportional to the change in the relative 
index from macroscopic region to macroscopic region. 

GRIN material is produced with one of three types of 
gradients in the index of refraction referenced to the opti- 
cal axis: 

1. Axial 

2 . Cylindrical 

3. Spherical 

Axial GRIN varies the index of refraction along the optical 
axis. Cylindrical GRIN varies the index of refraction 
radially from the optical axis. Hence, in three dimensions 
the surfaces of constant index form concentric cylinders 
centered on the optical axis. Spherical GRIN varies the 
index of refraction radially from the origin. The surfaces 
of constant index form a set of concentric spheres [8], 
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Born and Wolf [9] discuss the general properties of light 
rays in GRIN material with spherical symmetry. The trajec- 
tory of the light ray is described by Bouguer's relation, 
ndsin<J> = constant, where <p is the angle between the posi- 
tion vector ? and the tangent at point P as shown in figure 
E-l and is illustrated inside the GLM lens in figure E-2. 

For two dimensions using polar coordinates, the angle can 
describe explicitly as 

sin <{) = - , - , ■ ■ (E-l) 

^ + (i ) 2 

2 2 2 

where dr/d0 = (r/c) \/n r - c ; 9 is the 
angle between two consecutive radii and c is Bouguer's 
constant. In three dimensions using spherical coordinates 
the relation for the change in 9, illustrated in figure 
E-3, over a range of radius is given by 



9 



0 = c 

o 



C~r 

J r Vn 



dr 



2 2 2 
r - c 



(E-2) 



o 

Given a sphere of GRIN material shown in figure E-4 with 
a spherical gradient, a GLM lens can be selectively cut from 
the material. The lens can be customized with an index of 
refraction profile suitable for the application. A possible 
profile for the GLM conical lens, is shown in figure E-5, 
with a minimum and maximum located at a specific radius from 
the origin. Hence the ability to customize the GLM lens 
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Figure E-3. Illustration of the Relationship Between 

? and <j> Between Adjacent Rays in the 
GLM GRIN Lens. 
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Figure E-4. Illustration of a GLM Lens as a Section of GRIN Material 
Exhibiting Spherical Symmetry. 
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enables the lens designer to place the maximum value of the 
index of refraction at the desired location. The profile 
shown in figure E-5 can be applied to the GLM conical lens 
with the index profile varying along the first surface shown 
in figure E-6. 

Bouguer's constant, defined by the relation nrsin<}) = c 
is a function of the radius, index of refraction at that 
radius and the angle <f> defined earlier. However, once the 
ray enters the GRIN medium, the constant is invariant along 
the ray. Therefore the constant can theoretically be deter- 
mined explicitly at any point. Practically, two points 
exist at which the constant can be determined. These are 
at the intercept of the incident ray and the first surface 
and the intercept of the ray in the conical lens and the 
second surface. The most convenient position to calculate 
c is the first surface because n, r and <f> can all be 
determined explicitly on the first surface. Table E-I is 
a tabulation of values of Bouguer's constant c. Figure E-7 
shows the relationship between the constant c and the 
radius from the origin along the first surface of the GLM. 

Calculating the ray paths through a conical lens composed 
of GRIN material must be accomplished by solving equation 
(E-2) at each point in the lens. A complete algorithm was 
not written because of the time constraints, but TRACE can 
calculate the value of Bouguer's constant and refract the ray 
at the first surface shown in figure E-8 using the value of 
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c. 
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Figure E-6. Index of Refraction as a Function of Distance Along 
the First Surface of the GLM Lens. 
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TABLE E-I 



BOUGUER'S GRIN CONSTANT 



n< I ) 



r < I ) 



Phi (I) 



Si rKPhi ) 



c I> 



2.4408 


. 0814 


87. 5098 


.9239 


. 1334 


2.8170 


. 1228 


89.0997 


. 9342 


. 3 0 0 2 


2. 7481 


. 1342 


70. 1402 


. 9405 


. 4760 


2.8551 


. 2458 


70.9137 


.9450 


. 6625 


2.9481 


. 3089 


71.5251 


. 9485 


.3577 


3.0254 


.3833 


72.0263 


. 9512 


1 . 0600 


3.0958 


.4297 


72.4472 


.9534 


1 . 2633 


3. 1583 


. 491 1 


72.3067 


.9553 


i . 4313 


3.2147 


.5525 


73. 1 174 


. 9589 


1 . 6996 


3.2858 


.8139 


73.3832 


. 9583 


1 . 9210 


3.3118 


.8753 


73.8258 


.9594 


2. 1456 


3.3534 


.7387 


73.8352 


.9605 


2 . 3727 


3.3911 


. 7981 


74.0200 


.9614 


2. 6017 


3.4252 


.3595 


74. 1334 


. 9621 


2.3324 


3. 4580 


.9208 


74.3277 


.9628 


3. 0641 


3.4835 


.9822 


74. 4549 


.9634 


3. 2965 


3.5081 


1.0438 


74. 5684 


.9639 


3. 5291 


3.5298 


1 . 1050 


74.8837 


. 9644 


3 . 7616 


3.5488 


1 . 1884 


74.7477 


. 9643 


3. 9935 


3.5851 


1.2278 


74.8193 


. 9651 


4.2245 


3.5789 


1.2392 


74.8792 


. 9654 


4 . 4541 


3.5902 


1.3508 


74.9279 


.9656 


4.6320 


3 *. 5991 


1.4120 


74.9659 


.9653 


4 . 9073 


3.8055 


1.4733 


74.9935 


.9659 


5.1310 


3.8098 


1.5347 


75.0109 


.9660 


5. 3514 


3.8114 


1.5981 


75.0134 


. 9660 


5.5633 


3.8108 


1 . 8575 


75.0159 


.9660 


5.7315 


3.8079 


1.7139 


75.0034 


. 9659 


5.9904 


3.8028 


1.7303 


74.9309 


.9653 


6. 1946 


3.5949 


1.8417 


74.9432 


. 9657 


6. 3936 


3.5849 


1.9031 


74.9049 


. 9655 


6. 5369 


3.5723 


1.9845 


74. 3508 


.9652 


6. 7733 


3.5573 


2.0259 


74.7850 


.9649 


6 . 9539 


3.5398 


2.0872 


74.7073 


. 9646 


7 . 1 265 


3.5193 


2. 1488 


74. 6183 


.9642 


7.2903 


3.4982 


2.2100 


74.5125 


.9637 


7. 4461 


3.4701 


2.2714 


74.3933 


.9631 


7. 5915 


3.4410 


2. 3323 


74.2573 


.9625 


7.7261 


3.4088 


2.3942 


74. 1042 


.9613 


7.3433 


3.3727 


2.4558 


73. 9304 


.9609 


7.9533 


3.3330 


2.5170 


73. 7338 


. 9600 


3.0533 


3.2892 


2.5734 


73.5108 


.9589 


3.1319 


3.2408 


2.8397 


73.2573 


. 9576 


3. 1921 


3. 1872 


2.7011 


72.9675 


. 9561 


3.2315 


3. 1273 


2. 7825 


72.8337 


.9544 


3. 2467 


3.0815 


2.8239 


72.2454 


. 9524 


3.2337 


2.9370 


2.3353 


71. 7873 


.9499 


3. 1367 


2. 9022 


2.9487 


71.2357 


.9463 


3.0975 


2. 8039 


3.0031 


70.5519 


.9429 


7.9532 


2.8884 


3.0895 


89.8839 


. 9377 


7. 7317 
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Figure E-7. Bouguer's GRIN Constant as a Function of Radius from 
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Figure E-8. Ray Diagram Showing the Change in Refracted Ray 
Angle at the First Surface of the GLM Lens Using 
GRIN Material for the Lens. 



the index of refraction at that point. The calculated data 
for the ray diagram is tabulated in Tables E-II and E-III. 



TABLE E-II - 



INITIAL PARAMETER VALUES 



Nnt 1 n 



1 1 T I AL > 


= 


0.O0 degrees 








Alpha = 21.00 


degr ees 


10 -INITIAL) = 0.0O 








TanC Alpha) = 


. 33 


l . uuuyy 










n3 = 1.00000 




2. 00000 














n 2< 1 > 


a 


2. 44494 


n2'2) 


= 


2.62297 


n2<3) = 


2 . 75522 


n2< 4 > 


3 


2.36301 


n2<5) 


a 


2.95465 


n 2 < 6 > * 


3.03445 


n2< 7 > 


= 


3. 10497 


n2 C S > 


s 


3. 16790 


n2 9 > = 


3.22441 


n2 < 1 0 ; 


a 


3. 27535 


n2<lll> 


a 


3.32137 


n2 < 1 2 ) = 


3.36296 


n2< 13) 


a 


3.40051 


n2< 14) 


a 


3. 43436 


n 2 ^ 15) = 


3.46474 


n2< IS) 


a 


3.49139 


n2 < 1 7 ) 


a 


3.51596 


n2 < 13) * 


3.53710 


n2<19> 


3 


3.55543 


n2 < 20 ) 


a 


3.57106 


n2< 21) = 


3. 53406 


n2<22) 


3 


3.59449 


n2( 23) 


a 


3.60241 


n2 ( 2 4 ) = 


3.60735 


n2< 25) 


3 


3.61033 


n2 < 26 ) 


3 


3.61138 


n 2 < 2 7 ) = 


3. 60949 


n2^23) 


3 


3 . 6051 6 


n2 < 29 ) 


3 


3.59336 


n2 < 30 ) = 


3. 58907 


n2<31 ) 


a 


3.57723 


n2<32) 


3 


3.56230 


n2C33) * 


3. 54569 


n2 < 34 ) 


3 


3.52532 


n2<35) 


a 


3.503O9 


n2 < 36 ) = 


3.47735 


n2<37) 


3 


3. 44345 


n2 C 33 ) 


a 


3.41619 


n2<39) = 


3. 33033 


n2< 40 ) 


3 


3.34060 


n2 < 41) 


a 


3.29663 


n2 42 ) = 


3.24793 


n2<43) 


a 


3. 19407 


n2 < 44 ) 


a 


3. 13415 


n 2 < 4 5 ) = 


3 . 06722 


n2 C 4b ) 


3 


2.99185 


r\2< 47) 


a 


2.90593 


n2 < 43 ) = 


2.30612 


n2< 49 > 


3 


2.63635 


n2 < 50 ) 


a 


2. 63635 


n 2 < 5 1 > = 


0. 0O000 



R0_max - 1. SI 147 inches 

Aperture = 1.100 Ya 

Number of R ays = 50 



0.000 



i nc h 



i'b - 1.100 i nc h 
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TABLE E-III 



RAY DIAGRAM DATA CALCULATED FOR FIGURE E-8 



( XO , 


Y 0 > 


o < 1 , 


, Yl > 


<:< 3 , Y 3 > 




• f l c ') 


N 2 


PHO 


O . 00 


.02 


. 06 


. 02 


4.06 - 4.20 


.03 


0.00 


2.44 


- 46. 51 


0.00 


. 04 


. 1 1 


. 04 


3.96 - 4.24 


. 15 


0 . 0 0 


2.62 


- 43 . 10 


0. 00 


.07 


. 17 


,07 


3.91 - 4.26 


.23 


0 . 00 


2.75 


- 49 . 14 


0. 00 


.09 


.23 


.09 


3.89 - 4.26 


. 30 


0 . 00 


2.86 


-49 . 9 1 


0.00 


. 1 1 


. 29 


. 1 1 


3.39 - 4.26 


. 33 


0. 00 


2.95 


- 50.53 


0.00 


. 13 


. 34 


. 13 


3.90 - 4.26 


. 45 


0.00 


3.0 3 


- 51.03 


0 . 00 


. 15 


. 40 


. 15 


3.92 - 4.26 


.52 


0 . 00 


3.10 


- 51 . 45 


0.00 


. 13 


. 46 


. 13 


3.94 - 4.25 


. 60 


0 . 00 


3.16 


- 51.31 


0. 00 


. 20 


.52 


.20 


3.97 - 4.24 


. 67 


0 . 00 


3.21 


- 52 . 12 


O .00 


.22 


.57 


.22 


4.00 - 4.22 


. 74 


0.00 


3.27 


- 52 . 39 


0 .OO 


.24 


.63 


. 24 


4.03 - 4.21 


.32 


0. 00 


3.31 


- 52. 63 


0. 00 


.26 


. 69 


. 26 


4.07 - 4.20 


.39 


0 . 00 


3. 35 


- 52 . 34 


O .00 


.29 


.75 


.29 


4.11 - 4.13 


. 96 


0 . 00 


3 . 39 


- 53.02 


0.00 


.31 


. SO 


.31 


4.15 - 4.16 


1.03 


0 . O 0 


3 . 43 


- 53. 13 


0.00 


.33 


. 36 


. 33 


4.19 - 4.15 


1.11 


0 . 00 


3 . 46 


- 53.33 


0.00 


. 35 


. 92 


. 35 


4.24 - 4.13 


1.13 


0 . OO 


3.48 


- 53. 45 


0 . 00 


.37 


.97 


.37 


4.29 - 4.11 


1.25 


0 . 00 


3 . 51 


- 53 . 57 


0 . 00 


.40 


1.03 


. 40 


4.33 - 4.09 


1.32 


0 . 00 


3 . “-S 


- 53. 66 


0. 00 


. 42 


1 . 09 


. 42 


4.33 - 4.08 


1 . 40 


0 . 00 


3.55 


- 53.75 


0. 00 


. 44 . 


1 . 15 


. 44 


4.43 - 4.06 


1 . 47 


0.00 


3.57 


- 53.32 


0.00 


.46 


1.20 


. 46 


4.49 - 4.04 


1.54 


0 . 00 


3.53 


— 56. 33 


0 . 00 


. 40 


1. 26 


. 43 


4.54 - 4.02 


1.61 


0.00 


3 . 59 


- 53. 93 


0 . 00 


.51 


1 . 32 


.51 
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APPENDIX F 



SECOND SURFACE GENERATION: ITERATIVE SOLUTION 

A. INTRODUCTION 

One of the conclusions reached as a result of the investi- 
gation of curves A, B and C in Appendix C was that using a 
single polynomial to describe the second surface of a conical 
lens cannot satisfactorily refract light to a single, distinct 
focal point. Hence, a satisfactory image of an object cannot 
be formed. 

Three options for further study remained. First, continue 
to try and find a suitable polynomial to describe the second 
surface. This option was not pursued because of the infinite 
number of trials which would be required to determine if such 
an analytic expression existed. The second option would be 
to attempt to optimize a given polynomial by manipulating the 
coefficients of that polynomial to change the refracting prop- 
erties of the polynomial such that a single, distinct focal 
point could be formed. This option was pursued by using 
Control Program for Engineering Synthesis (COPES) developed 
by Dr. G.N. Vanderplaats , Naval Postgraduate School. The 
study was halted because of time constraints. However, ini- 
tial results concurred with the previously mentioned results 
of Appendix C. 

The third option was provided by an inquiry made by Dr. 
E.C. Crittenden, Naval Postgraduate School, concerning 
the capability of the TRACE program to draw rays backward; 
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i.e. could TRACE begin a set of light rays at a design focal 
point and draw them through the lens and into the medium 
ahead of the lens and emerging parallel to the GLM axis? 
Accomplishing the "backwards" ray trace would design the 
lens. Conceptually, at least two methods of generating the 
second surface of a conical lens exist and are available for 
investigation. The first method consisted of picking the 
initial point of the second surface to be the GLM axis- 
intercept of a refracted ray in the lens medium, noting that 
the ray must be refracted along the GLM axis to pass through 
the axis. Therefore, the slope of the second surface at the 
first point must be equal to the slope of the first surface. 
The derivation of this relationship is performed in Appendix 
A. The second point on the surface is calculated by extending 
a straight line by using the slope at the first point to 
intercept the next ray in the lens. Since the second point 
is not on the GLM axis, the slope at the second point required 
to satisfy Snell's Law will not be equal to the slope of the 
first surface. This process was chosen as the preferred 
method and is discussed in Chapter III and Appendix A. 

The second method of generating a second surface for a 
conical lens is similar to the first method. The difference 
is that a parabola is used instead of a straight line to 
predict the second and succeeding points on the second sur- 
face. A different parabola is used for every pair of points. 

A nonlinear predictor is desired because the shape of the 
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second surface is nonlinear. The following discussion 
describes this method of second surface generation for a 
conical lens. 

B. ITERATIVE SOLUTION 

1 . Derivation of Expressions for ^1 and 

The iterative solution is motivated by the ability 
of a computer to perform a great many calculations in a 
small amount of time. Referring to figure F-l for the geome- 
try and symbol definitions, the most significant steps in 
the iterative solution are: 

(1) Initialization: 

(a) Choose a focal point on the GLM axis. 

(b) Choose an initial lens point Tl. 

(c) Choose an initial change in p 2 , AP 2 . 

(2) Calculate the ray parameters 0^, P 2 and 0.2 
for the initial lens point by applying Snell's Law at Tl. 

(3) Calculate the second lens point T2 by fitting a 
parabola through Tl and predict the coordinate values of T2 . 
Iterate this prediction until the error is reduced below an 
acceptable tolerance. The error is defined to be the distance 
at which T2 intercepts the GLM axis. 

(4) Calculate the ray parameters 0^, P 2 and 0.2 

for T2. 

(5) Continue until the lens has been designed to the 
GLM axis. 
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Solution Method of Second Surface Generation. 



NOTE: All coordinate values are referenced to a right hand 

system. All angles are referenced to the GLM axis 
and are positive for counter-clockwise rotation from 
the axis to the point in question. The coordinate 
values (abscissa, ordinate) are referred to as (x,y) 
with x = the distance along tire GLM axis and y 5 the 
radius from the GLM axis. The subscripts are either 
single or double. The single and the first subscript 
in the double subscripts, the number refers to the 
surface at which the application of Snell’s Law 
occurred. If the subscript is a letter the subscript 
refers to the operation of Snell's Law; I for angle of 
incidence and R for angle of refraction. The second 
subscript refers to the point number in the lens. 

For example qlz ^ is the slope of the second surface 
at point number two. Any exceptions to this convention 
for subscripts will be made clear within the context 
of the discussion. 

The investigation consisted of deriving the analytical 
expressions relating the quantities shown in figure F-2. The 
primary variables of interest are the angle of incidence 9 I , 
az the angle of the tangent line at T and pz the refracted 
ray angle in medium 3. The assumptions made in the derivation 
are that the following quantities are known: 

(1) Px; the ray angle in the lens medium, measured with 
respect to the GLM axis. 
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(2) p 2 ? the ray angle in medium 3 measured with respect 



to the GLM axis. 

(3) n 2 »* the index of refraction of the lens medium. 

(4) n^; the index of refraction of medium 3. 

(5) f; the design focal point on the GLM axis. 

(6) (x,y) ; the coordinate values of the Point T. 

(7) the ray is transmitted without loss in all media. 

(8) the ray is either refracted or totally reflected 

at the boundary of two media. 

As discussed in Chapter III there exist two regions where 
the refracted ray in the lens can be refracted at point T. 

Point T is located in the low region as defined by the area 
below a line QP shown in figure F-3. In the low region 
| Pi | is always greater than or equal to |$|. Point T is 
located in the high region when |pi| is less than | (3 1 
as shown in figure F-4. 

Each point on the lens' second surface must satisfy Snell's 
Law sin0 R = n 2 //n 3 s i n9 i or b e totally reflected at T. There- 
fore referring to figure F-2 the angle of incidence in the low 
region is 



9 



I 



j - 012) - | Pi | 



(F-l) 



and the ray angle in medium 3 is 




(F-2) 



274 



Substracting equation (F-2) from (F-l) and substituting 
Snell's Law for 0_ yields 

X\ 

r ru 



9 I = | P 2 | - | P a | - arcsin 



— sin0 
n 3 1 



(F-3) 



a 2 


IT 

“ 2 


( | P2 | 


- 0 R ) hence 




ir 


r, , 


. / n 2 


a 2 


" 2 " 


|_l p ^ 1 


+ arcsin 1 — 
V n 3 



(F-4) 



Equation (F-3) is a transcendental equation in 0j and 
therefore can be solved graphically or by numerical methods. 
Therefore, equations (F-3) and (F-4) must both be solved for 
each iteration of 0 until a satisfactory value of a 2 is 
determined. Experience from using the CHART algorithm shows 
that an initial guess of 0^ = 0 c -2° should allow the algo- 
rithm to converge quickly. The critical angle © c is the 
angle of incidence at which sin0 R =l. Changing equations 
(F-3) and (F-4) into a form suitable for a numerical algorithm 
yields 



I, 



n+1 



P 2 | - | P i | + arcsin 



r n 2 

LHT sine i. 



n 



(F-5) 



Ct 2 

1 




I P2 | 



+ arcsin 




sin©^. 




(F-6) 



n 

for the angle of incidence and angle of the tangent line at 
Point T in the low region. 
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Figure F-3. Geometry and Symbols Used for Snell's Law in the 
Low Region as Applied to the Iterative Solution 
Method for Second Surface Generation. 
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As shown in figure F-4 the angle of incidence in the 
high region is 

9 ! = I P2 I - I Pi I (F-7) 

and the ray angle in medium 3 is 

P 2 = J - CX 2 + 9 r (F-8) 



Adding equations (F-7) and (F-8) 
Law for 0 R yields 

0j = j - (|pi| + a 2 ) + arcsin 

now a 2 = j - | NORM | 



and substituting Snell's 



n. 



n. 



sin0 




(F-9) 



hence 

ct2 = j - | Pi | + 0-j- 



(F-10) 



Equation (F-9) is a transcendental equation in 0^ and must 
be solved graphically or by numerical methods. Therefore 
equations (F-9) and (F-10) must be solved for each iteration 
of ©j until a satisfactory value of a 2 is determined. 
From the geometry in figure F-4 an initial guess for 
0j = 2 | pi | should cause fast convergence to the desired 
value of a 2 . Changing equations (F-9) and (F-10) into a 
form suitable for numerical applications yields 



/n, 

'n+l = J “ 2 ,n> + arcsin l — sin0 

1 2 n 



a 2 



'n+1 2 I Pl I + 9 I# 



n+1 



(F-ll) 
(F-12 ) 



•) 
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for the angle of incidence and angle of the tangent line at 
Point T in the high region. 

2 . Predicting Succeeding Points on the Second Surface 
The iterative solution method must involve a regres- 
sion routine to use a parabola to predict the next point on 
the second surface. The regression routine solves a set of 
simultaneous equations consisting of the equation of the 
parabola and first derivative at T^(x^,y^) and T 2 (x 2 ,Y 2 ) 
in the form 

2 

= Yi 



a + bx + cx. 

1 1 

b + 2cx, 



a + bx 2 + cx 2 ‘ 



a + 2cx. 



1 

y'i 

y 2 

y' 2 



(F-13) 



The set of equations is nonlinear in x, but is linear in 
the coefficients. Therefore, the techniques of linear algebra 
can be used on equation (F-13) . The method used here is the 
Gaussian-Jordan row-reduction technique discussed in Anton 
[10]. The first step is to form the augmented matrix whose 



determinant is set equal to zero 

2 



1 

0 

1 

0 



x 



x. 



1 

2xj 

V 

2x. 



*i 

y'i 

y 2 

Y'o 



= 0 



(F-14) 
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The row-reduction technique diagonalizes the first three 
columns of determinant (F-14) with, in general, non- zero 
quantities in the fourth column in the form 



1 

0 

0 

0 



0 

1 

0 

0 



0 

0 

1 

0 



A 

B 

c 

A 



= 0 



(F-15) 



Since four equations have been used to determine the three 
coefficients a, b and c the determinant is over-specified 
and nonhomogeneous . Utilizing the fact that the expression 
represented by D at location (4,4) in (F-15) is equal to zero 

D = x l y 2' “ x l y l' + x 2 y 2 ' “ x 2 y i ' _ 2 Y 2 + 2y l = 0 (F-16 ) 



if x 2 7 * x^, which is reasonable, since the problem demands 

that x 2 7* x^. Simplifying equation (F-16) and solving for 



y 2 ~ y l 
X 2 - X 1 



yields 



AY 

AX 




(F-17) 



Equation (F-17) states that the slope of the straight line 
connecting T1 and T2 in figure F-5 is the average of the 
slope of the parabola used to predict T2 evaluated at Tl and 
T2. This result is very simple, yet provides a tool to use 
in predicting the value of T2 . Experience gained in using 
CHART has shown that the second surface of the conical lens 
is a smooth convex surface with no discontinuities; compare 
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figures 14 and 20 in Chapter III. The exact shape of the 
second surface is a function of the cone half-angle a, and 
the indices of refraction n -j_/n 2 and n 3 « The first guess 
of where T2 is generated by coordinate values of the inter- 
section of the ray in the lens and the ray in medium 3 is 
shown in figure F-l. The set of equations (F-13) is solved 
using Cx^ y^) and (x 2 ,y 2 ) to find (AY/AX) in equation 
(F-17) . Since the slope at T1 is known the next guess of the 
actual location of T2 is aided by the experience of using 
CHART. The slope at T2 will increase as the first surface is 
approached. Therefore, calculating the slope of the line 
connecting Tl and T2 and comparing that value with the value 
from equation (F-17) will determine whether to increase or 
decrease Ap 2 to predict the next position of T 2 . This 
procedure is continued until the coordinate values of T2 
are determined within a specified tolerance. 

C . NEWTON ' S METHOD 

The recommended numerical method used to solve the trans- 
cendental equations for 0J and a 2 in section B-l is 
Newton's method. A detailed explanation of the technique is 
not provided here. Scores of texts on applied numerical 
methods exist and should be consulted for further study. 

Newton's method is simple and converges quickly if the 
function does not have any of the characteristics illustrated 
in figure F-6 . If the function describing exhibits a 

local minimum in the range of interest, Newton's method will 
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Figure F-6 . Three undesirable Characteristics in Functions f(9 
Which Cause Newton's Method to Diverge. 



diverge as illustrated in figure F-6a. If the function 
exhibits an inflection point, Newton's method will diverge 
as shown in figure F-6b. If the function has multiple roots 
in the range of interest, Newton's Method cannot determine 
which value is correct. The special case of a multiple root 
is shown in figure F-6c. Newton's method will approach the 
roots from one side then overshoot and oscillate back and 
forth, never converging on the desired value. A function 
which is "well behaved" is shown in figure F-7; compare the 
characteristics of the curve in figure F-7 and those of figure 
F-6 . 



The application of Newton's method as shown in figure F-7 

involves the selection of a value of 0-j. as the first guess 

0 T , finding the functional value f(0 T ) and the slope 
X 1 X 1 
f'(0 ). The prediction of the correct value of 0_ is via 

I 1 1 2 
the relation 



0 




f(0 T ) 
X 1 




(F-18) 



The process is repeated until the difference between two 

succeeding values of 0^, 1 - 0^ | is less than an 

n n-1 

acceptable tolerance. Transforming equation (F-18) into 
general form yields 



9 I - 0 f(0I n ) 

X n+1 “ 6 I " — (F-19). 

f ' (0 I ) 
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APPENDIX G 



LIMIT PROGRAM DESCRIPTION AND LISTING 



The derivation of the relationship between the slopes 
encountered of the first and second surfaces of a GLM lens 
composed of homogenous material by the ray shown in figure 
G-l is the subject of this appendix. The derivation is 
applicable to the case in which total reflection occurs at 
the second surface. 

The incident ray in medium 1 forms an angle 0 with 



the first surface normal n, at point Tl and is refracted 

according to Snell's Law sin0 = (n./n-sin©.,. . The first 

R 1 1 2 I 1 



surface normal n, is defined as the normal to the tangent 
line at Tl. The angle which the tangent line makes with 
respect to the GLM axis is a 2 . The ray traverses the lens 
and intercepts the second surface at T2 . The ray is refrac- 
ted at T2 according to Snell's Law sin0 R = (n 2 /n 3 ) sin0j . 
For total reflection at T2 



sin0 



R, 




(G-l) 



Now the angular difference between and n 2 is (a - a 2 ) 

and therefore 0 T = 0 D + (a-a 2 ) Hence 

1 2 R 1 



0 



R. 



+ 



(a - a 2 ) 




(G-2) 



The angle with respect to the GLM axis of the tangent line at 
T2 , a 2/ is then defined by 
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the Slope of the First 
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Equation (G-4) is illustrated in figure G-2 . 
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Figure G-2 . The Slope of the Second Surface as a Function 
Slope of the First Surface for Various Values 
Lens Index of Refraction and the Case of Total 
Reflection at the Second Surface. 



LIMIT PROGRAM LISTING 



10 PRINT u ******************************************************************** 
20 PRINT "* * 

30 PRINT "* LIMIT * 

40 PRINT "* * 

50 PRINT u ******************************************************************** 
60 DISP "THIS IS LIMIT" 

70 WAIT 2500 

80 OPTION BASE 0 

90 INTEGER I , L i nec ount , L i nemax 

100 DEG 

110 FIXED 2 

120 PRINTER IS 16 

130 Linecount=0 

140 Linemax=48 

150 Nt * 1 

160 N3= 1 

170 INPUT "DO YOU WANT A HARD COPY? Y/N",Y* 

180 IF Y $ * " Y " THEN PRINTER IS 0 

190 GOSUB Heaoer 

200 CALL Graph 

210 FOR N2 3 1.5 TO 4.5 STEP .5 

220 A 1 pha s 5 

230 Thet ai_l=90-Al pha 

240 Si n_thetar l=Nl/N2*SIN<Thetai_l> 

250 Thetar_l=ASN(Si n_thet arl) 

260 AI pha2=A1pha+ASM<Nt/N2*SIN<90-Al pha) )-ASN<N3/N2> 

270 Thet ai _2*Thet ar_l +Alpha-A1pha2 

280 IF Li necount >Li nemax THEN GOSUB Header 

290 PRINT USING 4 1 0; N2 , The t ai _1 , Thet ar_l , Thet ai _2 , A 1 pha, A 1 pha2 

300 Li necount*Li necount 4-1 

310 MOVE Alpha, Alpha2 

320 FOR A 1 pha=*5 TO 85 STEP 5 

330 Thet ai _1=90-A1 pha 

340 Si n_thet ar 1 -N1/N2*S INC Thet ai_t ) 

350 Thetar l=ASN<Si n_thetar l ) 

360 AI pha2-Al pha+ASN(Nl/N2*SIN<Thetai_l > ) -ASN < H3/N2 ) 

370 Thet ai_2*Thet ar_l+A1 pha-AI pha2 

380 IF Li necount >Li nemax THEN GOSUB Header 

390 PRINT USING 410; N2, Thet ai_l, Thet ar_l , Thet ai_2, Alpha, Alpha2 

400 Li necount =Li necount + 1 

410 IMAGE 5X, DD. DD, 5<5X, DDDD. DDD) 

420 DRAW A 1 pha, A 1 pha2 

430 NEXT Alpha 

440 LDIR 0 

450 LORG 2 

460 CSIZE 2.5 

470 LABEL USING 480;N2 

480 IMAGE K 

490 IF Li necount >L i nemax THEN GOSUB Header 

500 PRINT 

510 Li necount s Li necount +1 

520 NEXT N2 

530 GOSUB Header_end 

540 PRINTER IS 16 

550 PRINT LIN<2>, "PRESS CONT" 

560 BEEP 

570 WAIT 250 

580 BEEP 

590 PAUSE 

600 EXIT GRAPHICS 

610 GOTO Finished 

620 Header! IF Li necount >Li nemax THEN GOSUB Header_end 



630 

2 ) 

640 

650 

660 



IF Linecount >Linemax THEN PRINT PAGE ; TAB < 28 > ; " TABLE I <CONT)"*,LI 

IF LinecountOLinemax THEN PRINT PAGE; TAB< 35) ; "TABLE I ";LIN<2) 
Linecount =0 
PRINT LI N<2) 



290 



670 
680 

A 1 pha 

690 
700 
710 

720 Char: 

730 
740 
730 
760 

770 RETURN 

780 Header end 
790 
800 



GOSUB Char 

PRINT LIN< 1 ) ; SPA<5) ; ■ n2 
Alpha2";LIN<l> 

GOSUB Char 
PRINT LIN<2) 

RETURN 

FOR 1=0 TO 79 

IF 1=79 THEN PRINT CHR*<223) 
IF 1=79 THEN 760 
PRINT CHRS < 228 > ; 

NEXT I 



Thet a I < 1 ) 



ThetaRU ) 



Thet al < 2 ) 



HARD COPY OF THE PLOT ? Y/N w ,Dump crt$ 
IF <Dump_crt$="Y" ) OR < Dump_crt $ = "y" > THEN GOSUB Dump it 
DISP "FINISHED** 



: PRINT LIN<2) 

GOSUB Char 
RETURN 

810 Dump it: PRINTER IS 0 

820 ~ PRINT CHR$(27)&"&100T" 

830 DUMP GRAPHICS 

840 PRINT CHRS<27)$,"SJ 36T" 

858 PRINTER IS 16 

860 RETURN 

878 Finished: Dump_ ert $= "N" 

880 INPUT "DO YOU WANT A 

898 
900 

918 END 

920 SUB Graph 
930 OPTION BASE 0 
940 DEG 
950 
960 
978 
980 
990 
1000 
1018 
1020 
1030 
1840 
1050 
I860 
1070 
1080 
1090 
1188 
1110 
1120 
1130 
1140 

1150 Alpha 
,X»*x 



THE EXPRESSIONS USED TO DERIVE THE TIC MARKS WERE OBTAINED FROM THE 
HP-9845B UTILITIES LIBRARY, TAPE NR 09845-10205, PROGRAM " REGPLT " 



GCLEAR 

PLOTTER IS 13, "GRAPHICS" 
LDIR 0 
LORG 3 

LIMIT 0,184,0,100 



DATA -2,-1, 1,2 
READ Urn, Dm, Md, Mu 
DATA .39794, .69397, . 
READ Log2 , Log5 , Log7 



37506 



Xorg=Xmi n*Yorg=Ymi n*0 

Xmax=90 

Ymax=80 

INPUT "WHAT IS THE MAXIMUM VALUE OF ALPHA 



1168 


A 1 pha2 


:: INPUT “WHAT IS 


; THE 


MAXIMUM 


?", Ymax 










1170 


IF 


Xmax<*Xmi n 


THEN 


BEEP 




1180 


IF 


Xmax<=Xmi n 


THEN 


DISP 


"ALPHA 


1190 


IF 


Xmax<=Xmi n 


THEN 


WAIT 


2500 


1200 


IF 


Xmax< *Xmi n 


THEN 


Al pha 


1210 


IF 


Ymax< =Ym i n 


THEN 


BEEP 




1220 


IF 


Ymax< =Ym i n 


THEN 


DISP 


"ALPHA2 


1230 


IF 


Ymax< =Ym i n 


THEN 


WAIT 


2500 


1240 


IF 


Xmax< =Xm i n 


THEN 


Al pha2 


1250 


GRAPHICS 








1260 


j 










1278 


LIMII 


‘ 0, 134,0, 140 






1280 


LOCATE 20, 132,28 


t, 100 






1290 


Lx*LGT < Xmax-Xm i n ) 






1300 


Ly*LGT <Ymax-Ym i n) 







< DEFAULT = 90 DEGREES) ?" 
2 < DEFAULT = 38 DEGREES) 



> 0. PLEASE RE-ENTER ALPHA. 



> 0. PLEASE RE-ENTER ALPHAS 
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1310 
1320 
1330 
1340 
1350 

4*<<Testxtic>=Log5> 
1360 Ytic 



Xfudge*.02*<Xmax-Xmin> 

Yf udge*. 02 *< Ymax-Ym i n) 

Tic marks: Testxl i c=FRACT<Lx>+<Lx<0) 

Test yt i c=FRACT<Ly > +<Ly< 0) 

Xt ic = 10M INT<Lx)-i >*< i + 1. 5*< (Testxt i c>Log2) AND 
AND (Testxt ic< s Log7>)+6.5*<Testxtic>Log7)) 
10~< INTCLy >-!>*< l + l. 5*< CTestyt i c >Log2> "AND 



(Testxt i c<Log5> >♦ 
(Testyt ic<Log5>>+ 



4*< (Testyt i c >=Log5> AND < Testy t i c< =Log7) >+6. 5*<Testyt i c >Log7) > 

1370 Scale: SCALE Xmi n, Xmax + . 25*ABS(Xt i c ) , Ymi n, Ymax+. 25*ABS< Y% i c > 

1380 CLIP Xmi n, Xmax, Ymi n, Ymax 

1390 LINE TYPE 3 

1400 Xmaj=Ymaj=l 

1410 Mi nt i csi ze = 4 

1420 GRID Xt i c , Yt i c , Xorg, Yorg, Xmaj , Ymaj , Mi nt i cs i ze 

1430 LINE TYPE 1 

1440 FRAME 

1450 Labe t x: LDIR 90 

1460 LORG 8 

1470 FOR A=Xorg TO Xmax STEP ABS(Xtic) 

1480 MOVE A, Yorg-Yfudge 

1490 LABEL USING 1570;A 

1500 NEXT A 

1510 Labely: LDIR 0 
1520 LORG 8 

1530 FOR A»Yorg TO Ymax STEP ABS(Ytic) 

1540 MOVE Xorg-Xfudge, A 

1550 LABEL USING 1570JA 

1560 NEXT A 

1570 IMAGE #,K 

1580 LABEL USING 1590; MH 

1590 IMAGE /,K 

1600 Label : SETGU 

1610 ~ LDIR 0 

1620 LORG 5 

1630 Centerx=72 

1640 Centery*64 

1650 CSIZE 3 

1660 MOVE Cent erx , 10 

1670 LABEL "Alpha : Angle of the Tangent Line at the First Surface < deg 

rtts > m 



1680 LDIR 90 

1690 MOVE 1.45, Cent ery 

1700 LABEL "Alpha2 : Angle of the Tangent Line" 

1710 MOVE 6 . 45, Cent ery 

1720 LABEL "at the Second Surface ( degrees >" 

1730 LDIR 0 

1740 CSIZE 15/4.54 

1750 SETUU 

1760 SUBEXIT 
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